(format t"~{~D ~}"(sort(loop while(listen)collect(read))'> :key(lambda(n)(if(= #1=(logand(- n)n)n)(- n 64)(-(/ n)#1#)))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page