(dotimes(x 256)(princ(count #\1(format()"~B"x))))