sub sortmaker {
  my $order = shift;
  my $sub = $order ? sub { $a <=> $b } : sub {$b <=> $a};
  return $sub;
}