var
 z, iz : Word;
 k : Word; (* Delka kroku *)
 u, iu : Word;
 kroky, zbytek : Real;
 dz : Real; (* Delka zidky *)
begin
 Readln(z);
 for iz := 1 to z do begin
  Read(k); Readln(u);
  kroky := 0;
  zbytek := 0;
  for iu := 1 to u do begin
   Readln(dz);
(*   Write('delka ',dz,' zbytek ',zbytek); *)
   dz := dz + k - sqrt(k*k - zbytek*zbytek);
(*   Writeln('udela ',int(dz/k):10:5,' a zbyde mu ',frac(dz/k)*k:10:5); *)
   kroky := kroky + int(dz/k);
   zbytek := frac(dz/k) * k;
  end;
  kroky := kroky + round(zbytek/k);
  Writeln('Strazny ujde ',round(kroky),' ponorku.');
 end;
end.