(define (main-function)
  (letrec ((main-loop (lambda ()
                        (let ((a (read)) (b (read)))
                          (if (or (eof-object? a) (eof-object? b))
                            #f
                            (begin (display a)
                                   (display a)
                                   <+CURSOR+>
                                   (main-loop)))))))
    (main-loop)))

(main-function)

Add programming contest templates for Scheme
Add programming contest templates for Scheme
