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()