countIter ('"':str) count True  = do { tell "\""; countIter str count False }
countIter ('"':str) count True  = do { tell "\""; countIter str count False }
countIter ('"':str) count True  = do { tell "\""; countIter str count False }