func$ bin num .
   b$ = ""
   while num > 1
      b$ = num mod 2 & b$
      num = num div 2
   .
   return num & b$
.
print bin 5
print bin 50
print bin 9000