(while:prn:+""(n-of(abs:= r readline x(r)s(coerce(r)'cons)n(read))(if(< n 0)rev.s s)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page