(bind-func vector_test_a (lambda () (let ((v1:/4,float/* (alloc)) (v2:/4,float/* (alloc))) (vfill! v1 1.0 2.0 4.0 8.0) (vfill! v2 2.0 2.5 2.25 2.125) (* v1 v2))))