a = (read-line *standard-input* nil nil) 
b = (read-line *standard-input* nil nil) 
(format t "~A~%" (+ a b))