;;; +JMJ                                               -*- Mode:LISP; -*-
;;; PAPA CATL - Print file contents on console

(defun cat (F)
	"ConCATenate file contents to console stream"
	(do
	 ((in (open F))
	  (line nil))
	 ((not (setq line (readline in nil))))
	 (format t "~a~%" line)))