(defun return-line (num file)
	(with-open-file (str file :direction :input)
		(do ((line (read-line str nil 'eof)
					(read-line str nil 'eof))
			(i 1 (+ i 1)))
				((or (eql line 'eof) (eql i num))
					(if (eql line 'eof)
						(format t "Line number not found~%")
						(format t "~A~%" line))))))