(defun s(x y)(cond((= 1 y))((oddp x)(if(oddp y)(< x y)t))((evenp y)(s(/ x 2)(/ y 2)))))(dolist(x(sort(loop while(listen)collect(read))#'s))(princ x)(terpri))