egison-3.3.4: sample/io/cat2.egi

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