Program quermesse ;

uses crt;

var N,T,Num,solucao,solucoes,i:longint;

Begin

	 T:=1;
	 readln(N);

	 		while N > 0 do
	 				begin
	 				solucoes:=0;

	 		for i:=1 to N do
	 			begin
	 				read(Num);
	 					if Num=i then
	 						begin
	 							solucoes:=solucoes + 1;
	 							solucao:=Num;

	 							end;
	 					end;

	 					writeln('Teste ', T);
	 						if solucoes = 1 then
	 								writeln(solucao)

	 								else
	 									writeln(solucoes);


	 									T:= T+1;

	 									readln(N);
	 									end;





End.