(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))