var i,n,j,z,b,x,y:longint;

s:string;

flag:boolean;

begin

readln(n);

z:=2;

for i:=1 to n do begin

readln(s);

if (s[1]='l') or (s[1]='r') then begin

if s[1]='l' then z:=z-1;

if s[1]='r' then z:=z+1;

if z>4 then z:=z-4;

if z<1 then z:=z+4;

end else begin

val(s,b);

case z of

1:x:=x-b;

2:y:=y+b;

3:x:=x+b;

4:y:=y-b;

end;

writeln('(',x,',',y,')');

flag:=true;

end;

end;

if flag=false then writeln('(0,0)');

end.