(format t "(+ 5 4) = ~d ~%" (+ 5 4))
(format t "(- 5 4) = ~d ~%" (- 5 4))
(format t "(* 5 4) = ~d ~%" (* 5 4))
(format t "(/ 5 4) = ~d ~%" (/ 5 4))
(format t "(* 5 4.0) = ~d ~%" ( / 5 4.0))
(format t "(rem 5 4) = ~d ~%" (rem 5 4))
(format t "(mod 5 4) = ~d ~%" (mod 5 4))

(defvar *edad* 17)

(if (>= *edad* 18)
    (format t "Puede votar ~%")
    (format t "No puede votar ~%")
)

(setf *numero* 6)
(if (eq (mod *numero* 2) 0)
    (format t "Es PAR ~%")
    (format t "Es IMPAR ~%")
)
(setf *numero* 7)
(if (= (mod *numero* 2) 0)
    (format t "Es PAR ~%")
    (format t "Es IMPAR ~%")
)