Select Code to Download

#!perl

...
    print " expl says: ", expl_sorted($_) ? '' : 'not ', "sorted\n";
    print " gen_m says: ", gen_m_sorted($_) ? '' : 'not ', "sorted\n";
}