function binary(num)
         @match num begin
           0 => 0
           1 => 1
           _ => string(mod(num, 2), binary(div(num,2)))
         end
       end

function tobinary(num)
         begin
           reverse(bin(num))
         end
       end