program p1532;

const maxn=50000;

type node=record

x,y,c:longint;

end;

var d,f1,f2:array[-1..maxn] of longint;

v:array[1..maxn*10] of node;

n,m,i,j,k,l,x,y,c,u,sum,max:longint;

line:array[1..maxn*50] of longint;

temp:node;

procedure qsort(i,j:longint);

var s,t,mid:longint;

temp:node;

begin

s:=i;t:=j;mid:=(i+j) div 2;

repeat

while v.xv[mid].x do dec(t);

if st;

if s