my @characters = (qw(C N N N N N ));
    my @list= sort ;
    do {
        usePermutation( @list );
    } while(  NextPermute( @list )  );