#!/usr/bin/guile \
-e main -s
!#

(define (main args)
  (let ((str ""))
    (do ((line (read-line) (read-line)))
        ((eof-object? line))
      (set! str (string-append str line "\n")))
     (sleep 10)
     (display str)))