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 .. ]);
		var step : int;
		if l[0] = 'L' then
			step := -1;
		else if l[0] = 'R' then
			step := 1;
		else
			abort;
		for i := 0 to num do [
			pos += step;
			pos := (pos + 100) mod 100;
			if pos = 0 then
				z += 1;
		]
	]
	write(h[1], ntos(z) + nl);
]