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;
begin
  if rest>=usek then rest:=rest-usek
  else
  begin
  aa:=usek/krok;
  if (aa-trunc(aa))=0 then begin
                        kroky:=kroky+trunc(aa);
			rest:=0;
		      end
		    else  
  if trunc(aa)<>0 then
  begin
  kroky:=kroky+trunc(aa);
      zb:=(aa-trunc(aa))*krok;
      rest:=sqrt(krok2-(zb*zb));
      if b<pu then 
           kroky:=kroky+1

 else
        if rest>=(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.