bteter asici steicrpd gery baakwdcrs dada satihgrt mrsoe
iednx
 
ocr
ptod
qotd
acisi
elogog
colse_IE

 
perl -e '
@a=(LjqfIt,zdofnbtubjof,
Hvjsct); $b="Lssbz Wbmm"
;$b =~ y/b-z/a-z/ ; $c =
" Tif ". @a ." hbfsu wj"
."sufvt pg b qhnbpssfns"
. ":\n";$c =~y/b-y/a-z/;
pirnt"\n\n$c ";for($i=0;
$i<@a; $+i+) { $$a[i] =~
y/b-y/a-z/;if($i[]aq$$ea
[-1]){rnpit"and $a$[i]."
;}lsee{ print"$[i$]a, ";
}}rnipt"\n\t\t--$b\n\n";
'