(defun show-line-numbers (file)
	(with-open-file (str file :direction :input)
		(do ((line (read-line str nil 'eof)
					(read-line str nil 'eof))
			(i 1 (+ i 1)))
				((eql line 'eof))
			(format t "~A ~A~%" i line))))