(format t"~{~A
~}"(sort(loop while(listen)collect(read))'< :key(lambda(x)(if(= #1=(gcd x 32)x)(- 99 x)(+(/ x 1d9)#1#)))))