;; vi:ft=lisp:sw=2:ts=2

(let (f (fopen (car *args*)))
  (fwrite (fread f))
  )