let rec($)d?(c=input_byte stdin/9)n=c-d<4&c$n+c/4;Printf.printf"%d "(n/5-8);c$1;;2$0
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page