Suma.lsp

(defun SumaDirecta() (+ 5 6) )

(defun SumaArgumento(a b) (+ a b))

(defun SumaTeclado()
  (setq a (read))
  (setq b (read))
  (+ a b)
)