betetr ascii sectiprd grey braadkcws ddaa sitrhgat mrsoe
idenx
 
potd
qtod
asici
egoolg

 
perl -e '
@a=(LfdjtozIntouqfbfj,b,
Hsjvct); $b="Lsbsz Wmbm"
;$b =~ y/b-z/a-z/ ; $c =
" Tif ". @a ." hsfbu wj"
."svuft pg b qssbpfhnns"
. ":\n";$c =~y/b-y/a-z/;
pirnt"\n\n$c ";for($i=0;
$i<@a; $i++) { $i[$a] =~
y/b-y/a-z/;if($i[q$$a]ea
[-1]){irnpt"and $a[$i]."
;}sele{ pnrit"$$[ia], ";
}i}pnrt"\n\t\t--$b\n\n";
'