;;;; max-linelength.scm - Compute maximal line length

(use awk)

(print 
  (awk (read-line) (line) ([max-len 0])
    (#t (max max-len (string-length line)))))