vtest   xtlang

(bind-func vtest
  (lambda ()
    (let ((v1:/4,float/* (alloc))
          (v2:/4,float/* (alloc))
          (v3:/4,float/* (alloc)))
      (vfill! v1 4.0 3.0 2.0 1.0)
      (vfill! v2 1.0 2.0 3.0 4.0)
      (vfill! v3 5.0 5.0 5.0 5.0)
      (let ((v4 (* v1 v2)))
        (printf "mul:%f:%f:%f:%f\n" (ftod (vref v4 0)) (ftod (vref v4 1)) (ftod (vref v4 2)) (ftod (vref v4 3)))
        void))))