const
w:array[1..5,1..4]of longint=((2,1,0,2),(1,1,1,1),(0,0,2,1),(0,3,0,0),(1,0,0,1));
var
f:array[0..60,0..60,0..60,0..60]of longint;
n,i,ans:longint;
a,b,c,d:longint;
function dg(a,b,c,d:longint):longint;
var i:longint;
begin
if f[a,b,c,d]<>0 then exit(f[a,b,c,d]);
for i:=1 to 5 do
if (a>=w[i,1])and(b>=w[i,2])and(c>=w[i,3])and(d>=w[i,4])
then begin if dg(a-w[i,1],b-w[i,2],c-w[i,3],d-w[i,4])=2 then
begin f[a,b,c,d]:=1;
exit(1); end;
end;
f[a,b,c,d]:=2;
exit(2);
end;
begin
assign(input,'j5.in');reset(input);
assign(output,'j5.out');rewrite(output);
readln(n);
for i:=1 to n do
begin
readln(a,b,c,d);
if dg(a,b,c,d)=2 then writeln('Roland')
else writeln('Patrick');
end;
close(input); close(output);
end.