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