$X=<>+0;
$K=<>;
@r=(0,0,glob<>);
$Q=<>;

$l=0;
$h=$X;

for(1..$Q){
	($t,$a)=glob<>;
	for(;$k<$#r&&$t>=$r[$k+1];++$k){
		$m+=(-1)**$|*($r[$k+1]-$r[$k]);
		--$|?
		$X-$m<$h&&($h=$X-$m)<0&&($h=0)
		:
		-$m>$l&&($l=-$m)>$X&&($l=$X)
	}
	$%=$m+(-1)**$|*($t-$r[$k])+($a<$l?$l:$a>$h?$h:$a);
	print$%<0?0:$%>$X?$X:$%,$/
}
