6 lines
80 B
Common Lisp
6 lines
80 B
Common Lisp
;; vi:ft=lisp:sw=2:ts=2
|
|
|
|
(let (f (fopen (car *args*)))
|
|
(fwrite (fread f))
|
|
)
|