(defun read-first-item () 
	(princ "Please type a sentance: ")
	(read-from-string (read-line)))