Problem:
Score : 400 points

Problem Statement

You are given a string S of length N consisting of ( and ). Your task is to insert some number of ( and ) into S to obtain a correct bracket sequence.

Here, a correct bracket sequence is defined as follows:

() is a correct bracket sequence.

If X is a correct bracket sequence, the concatenation of (, X and ) in this order is also a correct bracket sequence.

If X and Y are correct bracket sequences, the concatenation of X and Y in this order is also a correct bracket sequence.

Every correct bracket sequence can be derived from the rules above.

Find the shortest correct bracket sequence that can be obtained. If there is more than one such sequence, find the lexicographically smallest one.

Constraints

The length of S is N.

1 ≤ N ≤ 100

S consists of ( and ).

Input

Input is given from Standard Input in the following format:

N
S

Output

Print the lexicographically smallest string among the shortest correct bracket sequences that can be obtained by inserting some number of ( and ) into S.

Sample Input 1

3
())

Sample Output 1

(())

Sample Input 2

6
)))())

Sample Output 2

(((()))())

Sample Input 3

8
))))((((

Sample Output 3

(((())))(((())))

Solution in Haskell (GHC 7.10.3) (judge verdict: Accepted)

main = do
  input <- last . lines <$> getContents
  let left = fst $ countLeft input (0, 0)
      right = fst $ countRight input (0, 0)
  putStrLn $ (replicate right '(') ++ input ++ (replicate left ')')

countLeft :: String -> (Int, Int) -> (Int, Int)
countLeft [] (l, r) = (l, r)
countLeft ('(':ss) (l, r) = countLeft ss (l+1, r)
countLeft (')':ss) (l, r) = if l > 0 then countLeft ss (l-1, r)
                                     else countLeft ss (l, r)
countLeft (_:ss) (l, r) = countLeft ss (l, r)


countRight :: String -> (Int, Int) -> (Int, Int)
countRight [] (r, l) = (r, l)
countRight ('(':ss) (r, l) = countRight ss (r, l+1)
countRight (')':ss) (r, l) = if l > 0 then countRight ss (r, l-1)
                                      else countRight ss (r+1, l)
countRight (_:ss) (r, l) = countLeft ss (r, l)