sub is_power_of_2 {
      my $n = shift;
      1 == grep { $_ == $n } ( 1 2 4 8 ... )
  }