sub canonical {
($_,$a,%h)=@_;s!.!$h{$&}||=($a=~/./g,$&)!ge;$_
}