;;; greet.lsp 

(defun greet ()
  (princ (format nil "~2&I am Maclisp.~2&What is your name? "))
  (setq name (readline))
  (princ (format nil "~2&Hello, ~A. It is nice to meet you.~2&Shall we play a game?" name)))