bteter pxeils sitcrepd grey bakwcdars ddaa sihtragt mrose
idnex
 
ptod
qtod
asici
eogolg

 
perl -e '
@a=(Lt,ffbbfodjunqjzIot,
Hvjsct); $b="Lsbsz Wbmm"
;$b =~ y/b-z/a-z/ ; $c =
" Tif ". @a ." hbfsu wj"
."svfut pg b qhnfsnpsbs"
. ":\n";$c =~y/b-y/a-z/;
pnrit"\n\n$c ";for($i=0;
$i<@a; $i++) { $i$a[] =~
y/b-y/a-z/;if($a$$][qiea
[-1]){irpnt"and $a$[i]."
;}esle{ pinrt"$]ai[$, ";
}ir}npt"\n\t\t--$b\n\n";
'