let($)a p=let rec(@)x y=p(Obj.magic(+)48(x*y=0||x=a||y=a));x=0&a@y-y/y=p ' ';x-1@y in a@a;;read_int()-1$print_char
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page