countParentheses str@(c:_) count isStr = do
  if c /= '(' && count == 0
    then return (0, isStr)
    else countIter str count isStr
countParentheses str@(c:_) count isStr = do
  if c /= '(' && count == 0
    then return (0, isStr)
    else countIter str count isStr
countParentheses str@(c:_) count isStr = do
  if c /= '(' && count == 0
    then return (0, isStr)
    else countIter str count isStr