(bind-func vsdiv (lambda (v1:double* s:double len:i64 result:double*) (let ((i 0)) (dotimes (i len) (pset! result i (/ (pref v1 i) s))) void)))