fn main
[
	var lines := list_break_to_lines(read_lazy(h[0]));
	var pos := 50;
	var z := 0;
	for l in lines do [
		var num := ston(l[1 .. ]) mod 100;
		if l[0] = 'L' then
			num := 100 - num;
		else if l[0] <> 'R' then
			abort;
		pos := (pos + num) mod 100;
		if pos = 0 then
			z += 1;
	]
	write(h[1], ntos(z) + nl);
]