(bind-func vprint "print a packed float* buffer" (lambda (buf:float* len ncols) (doloop (i len) (printf "buf[%. 3lld] = %.4f " i (convert (pref buf i) double)) (if (= (% i ncols) (- ncols 1)) (println))) (println)))