(bind-func print:[void,Matrix*]* (lambda (m) (mprint (tref m 0) (tref m 1) (tref m 2) (tref m 3)) void))