(format t"~{~D
~}"(sort(loop while(listen)collect(read))'>
:key(lambda(n)(if(= #1=(logand(- n)n)n)(- n 64)(-(/ n)#1#)))))