testsans/echo.scm

(define (echo)
  (let* ((c (read-char)))
    (if (eof-object? c)
        (newline)
        (begin (display c)
               (echo)))))

(define t1 (echo))