program Ponorka(input,output);

var zadani, PocetZadani : integer;
    k,u,i,l,sum : integer;
    p,x : real;
begin
  ReadLn(PocetZadani);
  
  for zadani:=1 to PocetZadani do begin
    ReadLn(k,u);
    x:=0;sum:=0;
    for i:=1 to u do begin
      ReadLn(l);
      p:=l-x;
      sum:=sum+trunc(p) div k +1;
      x:=sqrt(-sqr(trunc(p) mod k)+k*k);

    end;
    {WriteLn(x,' ',k/2,' ',sum);}
    if (trunc(p) mod k)<(k/2) then Dec(sum);
    WriteLn('Strazny ujde ',sum:0,' ponorku.');
  end;

end.