Lambda the Ultimate Goto (2)

             loop (lambda (ch count)
                    (if (eof-object? ch)
                       count
                       (loop (read-char) (+ count 1))))