(bind-func Vdot (lambda (v1 v2) (let ((size:size_t (tref v1 0)) (i:size_t 0) (tot 0.0) (v3 (Vmul v1 v2))) (dotimes (i size) (set! tot (+ tot (gsl_vector_get v3 i)))) tot)))