sub is_power_of_two { not $_[0] & $_[0]-1 }