perl -e'map{$pos=/W/?39:ord()-65-/[X-Z]/;($z=join "",reverse split //,sprintf "%.6b",@{[0,16,48,32]}[int $pos/10]+hex(@{[split(//,"153B97FD6E")]}[$pos%10]))=~ s/(..)/\n$1/g;$z=~tr/01/.O/;printf "%s\n%s\n\n",$_,$z}@{[A..Z]}'