func$ bin num .
   if num <= 1 : return num
   return bin (num div 2) & num mod 2
.
print bin 0
print bin 5
print bin 50
print bin 9000