(while 1(prn((fn r[l](reduce #(list%(r%2))l))(read-string(str\((or(read-line)\;)\))))))