dir,i,j,k,m,n,x,y :longint；

f :boolean；

n1,n2,i1 :longint；

st :string；

code :longint；

ch :char；

begin

readln(n1)；

x:=0； y:=0； f:=false；

for i1:=1 to n1 do begin

readln(st)；

ch:=st[1]；

case ch of

’l’:dir:=(dir+3) mod 4；

’r’:dir:=(dir+1) mod 4

else begin

val(st,j,code)；

end；

end；

if j<>0 then begin

f:=true；

case dir of

0:y:=y+j；

1:x:=x+j；

2:y:=y-j；

3:x:=x-j；

end；

writeln(’(’,x,’,’,y,’)’)；

end；

j:=0；

end；

if not f then writeln(’(0,0)’)

end.