12 lines
174 B
Plaintext
12 lines
174 B
Plaintext
(print (+ (car *args*) ":"))
|
|
(setq handle (fopen (car *args*)))
|
|
|
|
(loop
|
|
(let (data (fread handle))
|
|
(if data
|
|
(fwrite *stdout* data)
|
|
(break)
|
|
)
|
|
)
|
|
)
|