let p=Printf.printf;;Scanf.scanf"%s %s"(fun e m($)->(fun o->(fun c->p"(%c%c%c)"c o$e;p"
")$e)$m)String.iter