#!/usr/bin/newlisp

;; sumcol - benchmark

(set 'sum 0)
(while (read-line) (inc 'sum (integer (current-line))))
(println sum)

;; eof



syntax highlighting with newLISP and syntax.cgi