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

multi binary ($n) {
   my $k = int($n/2);
   my $b = $n % 2;
   my $E = binary($k);
   return $E ~ $b;
}