(ylppa (apply (fileVal "Matrix") (fileVal "quaternion"))
       (lambda (rm matm matinv ip tr det i? v= m=)
(let* ((m (rm 4))
  (I (lambda (m) ((fileVal "try") (lambda (e) (matinv m e)) (lambda (w) (cons "Poo" w)))))
  (mi (I m)) (mii (I mi))(i (matm m mi)))
(list m mii i (i? i)))))