Maclisp goodness:
(compress (reverse (explode x)))
Elisp much improved: (defun explode (x)
(if (symbolp x) (setq x (symbol-name x)))
(string-to-list x))
(defun compress (x) (concat x))
replies(3):