(bind-func vmag (lambda (v:double* len:i64) (let ((mag 0.0) (i 0)) (dotimes (i len) (set! mag (+ mag (* (pref v i) (pref v i))))) (sqrt mag))))