parse ('L':n) = -(read n)
parse ('R':n) = read n

clicks x = replicate (abs x) (signum x)

isOnZero n = (n `mod` 100 == 0) || (n == 0)

main = do
    input <- getContents
    print (length (filter isOnZero (scanl (+) 50 (concat (map (clicks) (map parse (lines input)))))))