DICHOI PASCAL

var
   sophong,n,q,h,d,min,i,j,p:longint;
   kt:boolean;

procedure giai;
begin
    readln(n,q,h,d);
    min:=q+1;
    for i:=1 to h do
       begin
           read(p);
           kt:=false;
           //kt so phong
           for j:=1 to d do
          begin
                 read(sophong);
              if sophong>n then kt:=true;
          end;
           //kt du tien
           if kt=true then
                 if p*N<min then min:=p*N;//tien it I
       end;
   //xuat kq
   if min<q+1 then writeln(min)
   else  writeln('stay home');
end;
begin
    assign(input, 'dichoi.inp');reset(input);
    assign(output, 'dichoi.out');rewrite(output);
    giai;
    close(input);close(output);
end.