(bind-func mcopy (lambda (src:float* row col dest:float*) (memcpy (cast dest i8*) (cast src i8*) (* row col 4)) void))