var dlzka, usekov, vysl, pocet : integer;
    kkk, llll, kolko, aktus : integer;
    zatdos : double;
    odsekol : boolean;

begin
  readln(pocet);
  for llll:=1 to pocet do begin
    readln(dlzka, usekov);
    zatdos:=0;
    kolko:=0;
    vysl:=0;
    
    for kkk:=1 to usekov do begin
      readln(aktus);
      kolko:=aktus;
      if zatdos<>0 then begin
        kolko:=kolko-trunc(zatdos);
        zatdos:=zatdos-trunc(zatdos);
      end;
      
      odsekol:=false;
      if zatdos>0 then begin
        dec(kolko);
	odsekol:=true;
	zatdos:=1-zatdos;
      end;
      vysl:=vysl+ (kolko div dlzka);
      kolko:=kolko mod dlzka;
      if odsekol then zatdos:=zatdos+kolko;
      zatdos:=sqrt(dlzka*dlzka-zatdos*zatdos);
      
      if kkk<>usekov then inc(vysl)
      else if (zatdos+kolko)>aktus/2 then inc(vysl);
    end;
   
    
    
    writeln('Strazny ujde ',vysl,' ponorku.');
  end;
end.