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