public function dist(&$A, &$B)
    {
        $l1 = strlen($A);
        $l2 = strlen($B);
        $l = min($l1,$l2);
        $d = 0;
        for ($i=0;$i<$l;$i++) {
            $d += (int) ($A[$i]!=$B[$i]);
        }

        return $d + (int) abs($l1-$l2);
    }