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