countParentheses :: String -> Int -> Bool -> Writer String (Int, Bool)
countParentheses  "" count isStr = return (count, isStr)
countParentheses :: String -> Int -> Bool -> Writer String (Int, Bool)
countParentheses  "" count isStr = return (count, isStr)
countParentheses  "" count isStr = return (count, isStr)