sub is_power_of_2 {
  local $_ = $_[0];
  $_/=2 while ($_ > 1);
  return if ($_ - int($_));
  1;
}