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