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