sub upto {
   my ( $m, $n ) = @_;
   return sub { $m <= $n ? $m++ : () };
}