var n,m,d,i:longint;
    dd,mm,dd1,mm1,f,z:array[1..200] of longint;
begin
readln(n,m);
for i:=1 to n do begin readln(dd[i],mm[i],dd1[i],mm1[i], f[i]); end;
for i:=1 to n do begin
case mm[i] of
01,03,05,07,08,10,12:d:=31-dd[i];
02:d:=28-dd[i];
04,06,09,11:d:=dd[i]-30;
end;
z[i]:=(d+dd1[i]+(f[i]*365-365)) div f[i];
end;
for i:=1 to n do
if n<2 then writeln(z[i])
          else if z[i]=z[i+1] then writeln(z[i])
                              else writeln(-1);
end.