#!/usr/bin/newlisp ;; sumcol - benchmark (set 'sum 0) (while (read-line) (inc 'sum (integer (current-line)))) (println sum) ;; eof