(let* (
  ; (ex (lambda (m e) (write (list m e))(newline) e))
  (rf ((fileVal "RND") "fli2"))
  (sml? (lambda (a) (let ((ep 1.e-8)) (let sml? ((a a)) (or ; needed??
     (and (pair? a) (sml? (car a)) (sml? (cdr a)))
     (and (number? a) (< (abs a) ep)))))))
  (G (car (fileVal "Clifford2"))))
  (ylppa (G (G (G (G (let ((i (lambda (x) x)))
     (list rf / i i i 0 1 + - * i '()))))))
    (lambda (sg inv tr bar alpha zer one + - * rls basis)
   (ylppa ((fileVal "Matrix") sg zer (lambda (x) (sml? x)) one + - * inv)
   (lambda (rmg mm inv ip tr det i? v= m=)
    (let* (
     (iv (lambda (m)((fileVal "try") (lambda (e) (inv m e))
         (lambda (e) (cons "Poo" e)))))
         (m (rmg 5)) (mi (iv m)) (mii (mm mi m)))
       (list (i? mii) (m= m (iv mi)))))))))