(let* ((rf ((fileVal "rr") "fli0"))
(G (car (fileVal "Clifford2"))))
  (ylppa (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) (equal? zer x)) one + - * inv)
   (lambda (rmg mm inv ip tr det i? v= m=)
   (let* ((m (rmg 3))
   (mi ((fileVal "try") (lambda (e) (inv m e))(lambda (e) (cons "Poo" e))))
   (mii (mm mi m))) (list mii (i? mii))))))))