(format t"~{~8,'0B
~}"(reverse(sort(loop as i to 255 collect i)'> :key'logcount)))