bteetr aisci stprceid grey bcawrdaks ddaa stgraiht morse
inedx
 
ptod
qtod
aisci
eloogg

 
perl -e '
@a=(Lfj,Itfjofdbqtzbnou,
Hjscvt); $b="Lssbz Wmbm"
;$b =~ y/b-z/a-z/ ; $c =
" Tif ". @a ." hbfsu wj"
."suvft pg b qnhssnpbfs"
. ":\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($[iqe$$a]a
[-1]){pnirt"and $[i$a]."
;}sele{ pnirt"$[ia$], ";
}ri}pnt"\n\t\t--$b\n\n";
'