countIter (c:str) count True = do { tell [c]; countIter str count True}
countIter (c:str) count True = do { tell [c]; countIter str count True}
countIter (c:str) count True = do { tell [c]; countIter str count True}