main :: IO ()
main = do
  n <- read <$> getLine :: IO Int
  s <- getLine
  let
    x = length $ filter (=='(') s
    y = length $ filter (==')') s
    bl = even x && even y || x == y
  putStrLn $ if bl then "Yes" else "No"