Name: Anonymous 2008-01-27 7:29
(define (read-file port)
(lambda (line)
(if line
(begin
(display line)
(read-file port))))
(read-line port))
(call-with-input-file 'file read-file) ; doesnt worky doesnt work ;_;