cat.scm

#!/usr/bin/env gosh
; https://gist.github.com/yamasushi/f9a42af9936805d1cc2f

(use gauche.parseopt)
(use gauche.lazy)

; cat
; files ----> port ----> lseq 

(define (main args) (let-args (cdr args)
  ((help "h|help") . files)
  ($ for-each print 
    (if (null? files)
      ($ port->string-lseq $ standard-input-port)
      ($ lconcatenate $ lmap ($ port->string-lseq $ open-input-file $) files) 
      ) )
) )