<>;
for(glob<>){
	if($i){
		$u[$i]=$_<$p?$i:$u[$i-1];
		$d[$i]=$_>$p?$i:$d[$i-1];
	}
	$p=$_;
	++$i;
}
<>;
for(<>){
	($l,$r)=glob;
	print $u[$r]>$l^1,$",$d[$r]>$l^1,$/;
}