main :: IO()
main = getContents >>= print . checker 0

readInt :: [Char] -> Int
readInt = read

checker :: Int -> [Char] -> Int
checker i (x:lx)
  | x == '1' = checker 0 lx
  | x == '0' = checker (i+1) lx
  | otherwise = i - 7