(lambda (p q n)
(ylppa ((fileVal "finFieldMat") p q n) (lambda (rmg mp inv ip tr deter it? v= m=)
((fileVal "try") (lambda (p)
  (let* ((m (rmg n))(mi (inv m p))(mii (inv mi p))(mx (mp m mi)))
  (list m mi mii mx (it? mx))))
  (lambda (e) (list "no good" e) e)))))

((fileVal "finFieldMatTest") 6700417 5 5)