(define (main args)
  (let ((text '())
        (count 0))
    (print args)
    (with-input-from-file (cadr args)
      (lambda ()
        (let1 ch (read-char)
          (until (eof-object? ch)
            (inc! count)
            (set! text (cons ch text))
            (set! ch (read-char))))))
    (format #t "read ~d chars\n" count)))