main=do
 n<-readLn;s<-getLine
 putStrLn(g s (f "" s 0 n))
  where f ini _ _ 0 = ini
        f ini las _ 1 = ini++las
        f _ ('(':')':las) 0 lan = f "" las 0 (lan-2)
        f ini ('(':')':las) inn lan = f (init ini) ((last ini):las) (inn-1) (lan-1)
        f ini las inn lan = f (ini++[head las]) (tail las) (inn+1) (lan-1)
        g s l = ['('|x<-l,x==')']++s++[')'|x<-l,x=='(']