(let loop ()
  (print "reading...")
  (let ((char (read-char)))
    (and
      (not (eof-object? char))
        (printf "char is '~a'~n" char)
        (loop))))