(while 1(prn((fn r[l](reduce #(list%(r%2))l))(read-string(str\((or(read-line)\;)\))))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page