program ponor;

var zadani,krok,krok2,pu:integer;
    useky:array[1..5000] of integer;
    rest:real;
    kroky:integer;  
    a,b:integer;
    
procedure vypocti(usek:integer);
var zb,aa:real;
    us:real;
begin
  if rest>=usek then rest:=rest-usek
  else
  begin
  us:=usek-rest;
  aa:=us/krok;
  zb:=(aa-trunc(aa))*krok;
  if zb=0 then begin
                 kroky:=kroky+trunc(aa);
		 rest:=0;
		end
		else
  begin
    rest:=sqrt(krok2-(zb*zb));
    kroky:=kroky+trunc(aa);
    if b<pu then kroky:=kroky+1
      else
      if zb>=(krok/2) then kroky:=kroky+1;
  end;
end;
end;
    
  
begin
  read(zadani);
  rest:=0;
  kroky:=0;
  for a:=1 to zadani do
    begin
      read(krok,pu);
      krok2:=krok*krok;
      for b:=1 to pu do   
        read(useky[b]);
      for b:=1 to pu do vypocti(useky[b]);
      writeln('Strazny ujde ',kroky,' ponorku.');
      kroky:=0;rest:=0;
    end;
end.