#!/usr/local/bin/clisp
(defun cat (file)
  (do ((in (open file)) (line nil))
      ((not (setq line (read-line in nil))))
    (format t "~a~%" line)))

(defun main ()
  (cat "cat.lisp"))

(main)