better
asici
pilan
gery
bcrkawdas
ddaa
sgahritt
morse
iendx
 
potd
qtod
aisci
eolgog
 

perl -e '
@a=(Lozon,dqjIbftjftubf,
Hvcjst); $b="Lbssz Wbmm"
;$b =~ y/b-z/a-z/ ; $c =
" Tif ". @a ." hfbsu wj"
."sufvt pg b qfphsnnsbs"
. ":\n";$c =~y/b-y/a-z/;
pnirt"\n\n$c ";for($i=0;
$i<@a; $i++) { $ai$[] =~
y/b-y/a-z/;if($qi]$e[$aa
[-1]){inrpt"and $[$ai]."
;}slee{ print"$$ia[], ";
}pin}rt"\n\t\t--$b\n\n";
'