;;;  File: Sum2.lsp
;;; 
;;;  Add two numbers
;;; 
;;;  Author:  Bary W Pollack
;;;  Date:    Feb. 2, 2003
;;; 
;;;  Demonstrate simple input/output
;;; 

;;;  --------------------------------------------------------------
;;;  sum2 - add two numbers acquired from stdin

(defun sum2 ()
    (let (x y)
         (princ "\nEnter two numbers: ")
         (setq x (read))
         (setq y (read))
         (princ "The sum of the two numbers is: ")
         (print (+ x y))
         (terpri)
         t))

(sum2)

;;;  --------------------------------------------------------------
;;;  The output from the above program should be:
;;;
;;; Enter two numbers: 123 4567
;;; The sum of the two numbers is: 4690
;;;
;;; T