(define (display-loop lst)
  (if (null? lst) "EOF"
      (begin
        (display (car lst))
        (display-loop (cdr lst)))))
(display-loop (list (+ (read) (read)) " " (read)))