Var a:array[0..13]of longint;
i,j,m,n,x,Flag:longint;
Begin
Assign(input,'poker1.in');Reset(input);
Assign(output,'poker1.out');Rewrite(output);
	Readln(m);
	For j:=1 to m do begin
		Fillchar(a,sizeof(a),0);
		Readln(n);Flag:=0;
		For i:=1 to n do begin
			Read(x);
			If (x>=3)and(x<=13) then inc(a[x-2])
				else Inc(a[14-x]); 
		End;x:=0;
		For i:=1 to 13 do begin 
			If a[i]>4 then flag:=1;
			If (a[i]=4)and(x=0) then x:=i;
		End;
		If Flag=0 then 
		Case x of
			0:Writeln('no bomb');
			1..11:Writeln(x+2);
			12..13:Writeln(14-x);
		End
		else Writeln('cheat');
	End;
Close(input);Close(output);
End.