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