(bind-func determinant:[!b,Matrix:<!a,i64,i64,i1>*]*
(lambda (m1)
(if (<> (tref m1 1) (tref m1 2))
(begin
(println "Error: Determinant for square matrix's only")
(convert 0))
(mdetrm (tref m1 0) (tref m1 1)))))