sub make_divide     # "Half" is a lousy name for a curried divide
{
  my $n = shift;
  if (Power_Of_Two($n)) {
    my $log = Log2($n);
    return sub { return      $_[0] >> $log; };
  } else {
    return sub { return int( $_[0] / $n  ); };
  }
}