(while((^r((^u(display(if(= u 10)"\\n "(if(< 31 u 127)(ucs->char u)(format"\\x~2,'0x"u))))(r)(flush))(x->number #"#x~(string(r))~(r)")))read-char))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page