print"Counted $cnt unique permutations";
print $/;