fun challenge

Write a program that takes an integer as input and writes the integer in English.

ie:

enter integer: 23
twenty-three.

Here's my code in common lisp:

(format t "~r" (read))

I seem to remember an elegant recursive solution in TAoCP