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