bteter asici srceitpd gery bawrkacds srquae shgitrat msore
idnex
 
ocr
potd
qtod
aisci
egoolg

 
-e perl '
@a=(Lot,jfbnufodbfqzItj,
Wmbm" $b="Lssbz Hcvjst);
y/b-z/a-z/ = =~ ; ;$b $c
@a wj" hsfbu ." Tif " ".
b qhbsfpnnss" ."sufvt pg
. =~y/b-y/a-z/; ":\n";$c
print"\n\n$c ";for($i=0;
$i $+i+) { $i$a[] <@a; =~
y/b-y/a-z/;if($eq$ai[]$a
$$ia[]." [-1]){nript"and
;}sele{ prnit"$[]$ia, ";
}pirn}t"\n\t\t--$b\n\n";
'