(let* (
  ; (ex (lambda (m e) (write (list m e))(newline) e))
  (rf ((fileVal "RND") "fli2"))(eps (expt 2. -47))
  (sml? (lambda (a) (< (abs a) eps)))
  (G (car (fileVal "Clifford2"))))
  (ylppa (G (G (G (G (let ((i (lambda (x) x)))
     (list rf / i i i 0 sml? 1 + - * i '()))))))
    (lambda (sg inv tr bar alpha zer zer? one + - * rls basis)
   (ylppa ((fileVal "Matrix") sg zer zer? one + (lambda (a b) (+ a (- b))) * 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)))))))))
 