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

;;; $Id: reversefile.guile,v 1.4 2001/06/30 15:52:42 doug Exp $
;;; http://www.bagley.org/~doug/shootout/
;;; from Brad Knotwell

(define (main args)
  (let ((lines '()))
    (do ((line (read-line) (read-line)))
    ((eof-object? line) (map write-line lines))
      (set! lines (cons line lines)))))