postfix to infix by xsd

open String let rec l?(s=read_line())?(g=let i=ref(length s)in fun()->decr i;sub s!i 1)_=let
rec(!)?(c=g())?(p=86mod Hashtbl.hash c land 19)q=if p<4then(fun t->if
q>p/2*2then"("^t^")"else t)(!(p/2*2)^c^ !p)else c in l(print_endline!0);;l()

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page