sub upto {
   my ( $m, $n ) = @_;
   return sub { 
      return if $m > $n;
      return $m++;
   };
}