Select Code to Download

#!/usr/bin/perl

...
    }
    return abs( $n1 * $n2 ) / gcd( $n1, $n2, );
}

 root    HASH (0           ): { nc => 0, top_foo => 1 }
    a    HASH (0:0         ): { nc => 1 }
...
    h    HASH (0:1         ): { nc => 8 }
    i    HASH (0:1:0       ): { nc => 9 }
    j    HASH (0:1:0:0     ): { nc => 10 }