const maxn = 1001;

type punct = record
        x,y:longint;
     end;
     dreapta = record
        a,b,c:longint;
     end;

var f:text;
    n,m,i,j,s,sol,k,n1,n2:longint;
    p:array[1..maxn]of punct;
    d:array[1..maxn]of dreapta;
    a,b,c,c1,c2:array[1..maxn]of longint;

procedure readdata;
begin
   assign(f,'regiuni.in');
   reset(f);
   readln(f,n,m);
   for i:=1 to n do
   begin
      readln(f,d[i].a,d[i].b,d[i].c);
   end;
   for i:=1 to m do
   begin
      readln(f,p[i].x,p[i].y);
   end;
   close(f);
end;

function semn(j:longint):integer;
begin
   if ((d[i].a*p[j].x)+(d[i].b*p[j].y)+d[i].c<=0) then semn:=0
                                                  else semn:=1;
end;

procedure make(x,y:longint);
begin

end;

procedure solve;
begin
   s:=2;
   c[1]:=1;
   c[2]:=n;
   for i:=1 to m do
   begin
      for j:=1 to s-1 do
      begin
         make(c[j],c[j+1]);
      end;
   end;
end;

procedure writedata;
begin
   assign(f,'regiuni.out');
   rewrite(f);
   writeln(f,k);
   close(f);
end;

begin
   readdata;
   solve;
   writedata;
end.