;;;; count-lines.scm - Count non-comment lines in Scheme file

(use awk)

(print
 (awk (read-line) (line) ([nlines 0])
   ("^[ \t]*;" nlines)
   (else (add1 nlines))))