{
TASK: FESTB
LANG: PASCAL
}
program festb;
var hs,qu,s,a,b:array[1..200]of integer;
    i,j,n,m,a1,a2,a3,a4,k,l:integer;
begin
   readln(m,n);
   for i:=1 to m do
      readln(j,l);
   for i:=1 to n do
      readln(k);
      a1:=-4;
      a2:=1;
      a3:=3;
      a4:=4;
   writeln(a1,' ',a2);
   writeln(a3,' ',a4);
readln;
end.