[ [] swap
    [ 2 /mod digit
      swap dip join
      dup not until ]
    drop reverse ]     is bin  ( n --> $ )

  5    bin echo$ cr
  50   bin echo$ cr
  9000 bin echo$ cr