countIter (c:str) count isStr = do
  tell [c]
  let m = count + par2Num c
  if m == 0
    then return (0, False)
    else countIter str m isStr
countIter (c:str) count isStr = do
  tell [c]
  let m = count + par2Num c
  if m == 0
    then return (0, False)
    else countIter str m isStr
countIter (c:str) count isStr = do
  tell [c]
  let m = count + par2Num c
  if m == 0
    then return (0, False)
    else countIter str m isStr