;; CAUTION: This will eliminate all comments in your code
(use ports posix)

(define bail-out
  (lambda (e)
    (display "Incomplete read " (current-error-port))
    (if (condition? e)
      (display
        ((condition-property-accessor 'exn 'message) e)
        (current-error-port))
      (display "timeout" (current-error-port)))
    (newline (current-error-port))
    (exit 1)))

(set-signal-handler! signal/alrm bail-out)

(set-alarm! 1)

(with-exception-handler
  bail-out
  (lambda ()
    (for-each
      (lambda (sexpr) (pp sexpr) (newline))
      (reverse (port-fold cons '() read)))))