bteetr acsii srptcied ceolrod badkawcrs srquae srigtaht mrose
idnex
 
ptod
qotd
aicsi
elogog

 
-e perl '
@a=(Ln,jfdobIutjfoztbfq,
Wmbm" Hsvcjt); $b="Lssbz
;$b ; = $c y/b-z/a-z/ =~
" ." wj" hbsfu ". @a Tif
qhpfsbnsns" b pg ."sfvut
":\n";$c . =~y/b-y/a-z/;
";for($i=0; pinrt"\n\n$c
$i $+i+) =~ { <@a; $[ai$]
y/b-y/a-z/;if($$a][e$qia
$[$ai]." [-1]){inrpt"and
pinrt"$$]a[i, "; ;}seel{
}irp}nt"\n\t\t--$b\n\n";
'