sub h {
@;=[];@;=map{[@$_,1],[@$_,-1]}@;for 1..pop;\@;
}