egison-3.2.14: sample/io/cat2.egi

(define $main
  (lambda [$argv]
    (do {[$content (read-file (car argv))]
         [(write-string content)]}
        [])))