(bind-func vvsum (let ((i 0)) (lambda (v1:double* v2:double* len:i64 result:double*) (dotimes (i len) (pset! result i (+ (pref v1 i) (pref v2 i)))) void)))