(print (+ (car *args*) ":"))
(setq handle (fopen (car *args*)))

(loop
  (let (data (fread handle))
    (if data
      (fwrite *stdout* data)
      (break)
      )
    )
  )