betetr acisi sirepctd gery bcdrwkaas ddaa shaigtrt msore
idnex
 
ptod
qtod
aisci
eoglog

 
perl -e '
@a=(L,tbzIountdjfofjbfq,
Hvcjst); $b="Lssbz Wbmm"
;$b =~ y/b-z/a-z/ ; $c =
" Tif ". @a ." hfsbu wj"
."suvft pg b qhsnpfbsns"
. ":\n";$c =~y/b-y/a-z/;
print"\n\n$c ";for($i=0;
$i<@a; $+i+) { $i$a[] =~
y/b-y/a-z/;if($][aqi$e$a
[-1]){rnpit"and $$[ia]."
;}eesl{ print"$$][ia, ";
}prni}t"\n\t\t--$b\n\n";
'