better acsii srpcietd creoold bkadcwras srquae sihragtt morse
iendx
 
ptod
qtod
acsii
egoolg

 
-e perl '
@a=(Lzjqb,jbdtIfuotfofn,
Wmbm" $b="Lbssz Hvjsct);
$c ;$b y/b-z/a-z/ ; =~ =
wj" @a hsfbu Tif ." " ".
b qnpfnbsshs" ."sfuvt pg
. ":\n";$c =~y/b-y/a-z/;
";for($i=0; pnrit"\n\n$c
$i { =~ $[i$a] <@a; $+i+)
y/b-y/a-z/;if($i$qea[]$a
$i$a[]." [-1]){rinpt"and
pinrt"$]a$i[, "; ;}lees{
}p}rnit"\n\t\t--$b\n\n";
'