btteer aicsi scrtpied cleoord barcakwds squrae sgihtrat msroe
idenx
 
potd
qotd
aisci
eolgog

 
-e perl '
@a=(LjqnfdfzboIubtfj,ot,
Hsjvct); Wbmm" $b="Lbssz
; y/b-z/a-z/ = =~ ;$b $c
wj" Tif ." hsfbu " ". @a
b pg ."svfut qhssfnbnps"
":\n";$c =~y/b-y/a-z/; .
";for($i=0; pnrit"\n\n$c
$i =~ $ia[$] { <@a; $i++)
y/b-y/a-z/;if($[$iq]$aea
[-1]){irnpt"and $ai$[]."
;}esle{ "; pnrit"$ai$][,
}}ripnt"\n\t\t--$b\n\n";
'