(defun list-cat (file)
	(with-open-file (str file :direction :input)
		(do ((alist (list (read-line str nil 'eof))
				(cons (read-line str nil 'eof) alist)))
			((eql (car alist) 'eof) (reverse alist)))))