BZOJ 1022

program bzoj1022;
var    t,n,i,ans,k,j,k1,k2:longint;
    bo:boolean;
begin
    read(t);
    for k:= to t do begin
        read(n);
        ans:=; k2:=;
        for i:= to n do begin
            read(k1);
            if k1> then inc(k2);
            ans:=ans xor k1;
        end;
        if ((ans=) and (k2>)) or ((ans<>) and (k2=)) then writeln('Brother') else writeln('John');
    end;
end.