($n,$a,$b)=glob<>; $m[$_]=1for$a+$<..$b+$<; map{ ($u,$l,$r,$i)=unpack N4,$_; $h=0; $h|=$_,$_=0for@m[$l..$r]; $r[$i]=$h.$/; }sort map{($l,$u,$r)=glob;pack N4,-$u,$l+$<,$r+$<,$i++}<>; print@r