$n=<>;
map{
	unshift@a,[/R/-/L/,($a,$b)=/\d+/g];
	$c=$t=/C/&&!print$c,$/,!map{
		($d,$x,$y)=@$_;
		(($x+=$d*$t++)%=($n*2))>=$n?$x=$n*2-1-$x:0;
		$c+=($x>=$a&$x<$b&$d)*$y
	}@a;
}<>