sub bin {
      sprintf "%08b", $_[0];
  }