(defun pseudo-cat (file)
	(with-open-file (str file :direction :input)
		(do ((line (read-line str nil 'eof)
					(read-line str nil 'eof)))
				((eql line 'eof))
			(format t "~A~%" line))))