(bind-func vcopy (lambda (src:double* len:i64 dest:double*) (doloop (i len) (pset! dest i (pref src i))) void))