#!/usr/bin/newlisp

# count benchmark

(set 'lc 0 'wc 0 'cc 0)

(while (set 'line (read-line))
	(inc 'lc)
	(inc 'wc (length (parse (trim line) "\\s+" 0)))
	(inc 'cc (+ (length line) 1))) ;; add back the line feed

(println lc " " wc " " cc)

(exit)



syntax highlighting with newLISP and syntax.cgi