create table by xsd

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