#! /bin/sh
#| Hey Emacs, this is -*-scheme-*- code!
#$Id: port-to-lines.ss 5758 2008-11-17 13:06:58Z erich $
exec  mzscheme --require "$0" --main -- ${1+"$@"}
|#

#lang scheme

(define (file->lines fn)
  (call-with-input-file
      fn
    (lambda (ip)
      (for/list ([line (in-lines ip)])
        line))))

(define (main . args)
  (for ([fn (in-list args)])
    (for ([line (in-list (file->lines fn))])
      (display line)
      (newline))))

(provide (all-defined-out))