common lisp map number to word

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