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