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";}