sub binary (Int where { $_ < 0 } $n)
{
   my $E= binary(-$n);
   return "-" ~ $E;
}