(use srfi-1)(map(^i(format #t"~8,'0B
"i))(sort-by(iota 256 255 -1)logcount))