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