var t,n,x1,y1,x2,y2,br1,br2,r,kon,l:integer;
        a:string[1];
        minx,miny,maxx,maxy:array [1..100] of integer;
    begin
    readln(t);
    for br1:=1 to t do begin
            readln(n);
            for br2:=1 to n do begin
            read(a);

            if a='p' then begin
                    readln(x1,y1);
                    if br2=1 then begin
                    minx[br1]:=x1;
                    maxx[br1]:=x1;
                    miny[br1]:=y1;
                    maxy[br1]:=y1;
                    end;
                    if y1<miny[br1] then miny[br1]:=y1;
                    if y1>maxy[br1] then maxy[br1]:=y1;
                    if x1<minx[br1] then minx[br1]:=x1;
                    if x1>maxx[br1] then maxx[br1]:=x1;
             end;

    if a='c' then begin
    readln(x1,y1,r);
    if br2=1 then begin
    minx[br1]:=x1-r;
    maxx[br1]:=x1+r;
    miny[br1]:=y1-r;
    maxy[br1]:=y1+r;
    end;
    if y1-r<miny[br1] then miny[br1]:=y1-r;
    if y1+r>maxy[br1] then maxy[br1]:=y1+r;
    if x1-r<minx[br1] then minx[br1]:=x1-r;
    if x1+r>maxx[br1] then maxx[br1]:=x1+r;
    end;

    if a='l' then begin
    readln(x1,y1,x2,y2);

    if br2=1 then begin

    minx[br1]:=x1;
    maxx[br1]:=x1;
    miny[br1]:=y1;
    maxy[br1]:=y1;

    if x2<minx[br1] then minx[br1]:=x2;
    if x2<maxx[br1] then maxx[br1]:=x2;
    if y2<miny[br1] then miny[br1]:=y2;
    if y2<maxy[br1] then maxy[br1]:=y2;

    end;

    if (y1<y2) and (y1<miny[br1]) then miny[br1]:=y1;
    if (y2<y1) and (y2<miny[br1]) then miny[br1]:=y2;

    if (y1>y2) and (y1>maxy[br1]) then maxy[br1]:=y1;
    if (y2>y1) and (y2>maxy[br1]) then maxy[br1]:=y2;

    if (x1<x2) and (x1<minx[br1]) then minx[br1]:=x1;
    if (x2<x1) and (x2<minx[br1]) then minx[br1]:=x2;

    if (x1>x2) and (x1>maxx[br1]) then maxx[br1]:=x1;
    if (x2>x1) and (x2>maxx[br1]) then maxx[br1]:=x2;
    end;
    end;
    end;
    for kon:=1 to t do begin
    writeln(minx[kon],' ',miny[kon],' ',maxx[kon],' ',maxy[kon]);
    end;
    end.