(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 "Singular: " e))))))

((fileVal "finFieldMatTest") 6700417 5 5)
((fileVal "finFieldMatTest") 2 5 4)
((fileVal "finFieldMatTest") 2 5 2)