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