| b |
b := [:n |
	| c |
	c := OrderedCollection new: n * 2.
	c add: '1'; do: [:e | (c add: e, '0'; add: e, '1'; size) > n ifTrue: [^c at: n]]].

b value: 10   "=> '1010' "