I thought I'd have some fun with this one:

use Math::BaseCnv;@n=split(//,<STDIN>);@l=(a..p,r..z);for(1..3**$#n){
my@q=split(//,cnv($t++,10,3));for(0..$#n-1){
print$l[($n[$_]-2)*3+$q[$#n-$_]]}print"\n";}
[download]

Just type in whatever numbers you want letters for after you run it. I cheated though - I used the base converter to do the hard work :-) Gotta make sure you have that mod installed.

Not really all that much of a contrib to the convers, but I thought I'd share my afternoon fun - as you said: tmtowtdi.

-Adam