let rec f?(c=input_byte stdin)i=f[|Obj.magic print_char(c/64*i lxor c);32-i;i|].(c/48);;f 0
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page