RosettaCodeData/Task/Binary-digits/Scheme/binary-digits.ss

(display (number->string 5 2)) (newline)
(display (number->string 50 2)) (newline)
(display (number->string 9000 2)) (newline)