sub is_power_of_2 {
  return 0 unless $_[0]>0; # to avoid log error
  log($_[0])/log(2) - int(log($_[0])/log(2)) ? 0 : 1 
}