(do[(u(string->number(fold string-append""(string-split(read-line)" "))16)(ash u -9))]((< u 9))(write-byte(logand u 127)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page