Select Code to Download

sub binary (0|1 $n) { $n }

...
   my $E = binary($k);
   return $E ~ $b;
   }

multi binary ($n where 0|1) { $n }

...
   my $E = binary($k);
   return $E ~ $b;
}