head.scm

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

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

(define (main args) (let-args (cdr args)
  ((nchr "n=i" 140) . files )
  ($ print 
   $ list->string 
   $ (cut ltake <> nchr)
     (if (null? files)
        ($ port->char-lseq $ standard-input-port)
        ($ lconcatenate $ lmap ($ port->char-lseq $ open-input-file $) files) 
     ) )
) )