RosettaCodeData/Task/Binary-digits/Ol/binary-digits.ol

(print (number->string 5 2))
(print (number->string 50 2))
(print (number->string 9000 2))