Número de mapa Lisp Common a Word

(defun translate-number (num)
   (case num
     (1 "ONE")
     (2 "FOO")))
Spotless Skunk