sub fancy_algorithm {
   my @args= @_;
   p @args;
   my @order;
   while (@args) {
      my ($pick, %score, %seen_order);
      my $see = 1;
      $seen_order{$_} += $see++ for map @$_, @args;
      for (@args) {
         my $n= --$score{$_->[0]};
         $pick= $_->[0] if !defined $pick or $n < $score{$pick}
            or $n == $score{$pick} && $seen_order{$_->[0]} < $seen_order{$pick};
      }
      push @order, $pick;
      $_ = [ grep $pick ne $_, @$_ ] for @args;
      @args = grep @$_, @args;
   }
   return \@order;
}