; Hilbert Matrix; determinant and inverse.
(ylppa ((fileVal "Matrix") '() 0 zero? 1 + - * /)
(lambda (rm matm matinv ip tr det i? v= m=)
; Scope of matrix functions over Scheme numbers
(lambda (i) (let ((m ((fileVal "HilbertMat") i)))
(list (det m) ((fileVal "Try") (lambda (e) (matinv m e))
   (lambda (t) (append "Singular:" t))))))))