var p,e,i,d,x,k:longint;
begin
 while k=k do
  begin
   inc(k);
   readln(p,e,i,d);
   if (p=-1)and(e=-1)and(i=-1)and(d=-1) then
    break;
   for x:=d+1 to 21252 do
    if abs(x-p)mod 23=0 then
     break;
   while x<=21252 do
    begin
     if abs(x-e) mod 28=0 then
      break;
     inc(x,23);
    end;
   while x<=21252 do
    begin
     if abs(x-i) mod 33=0 then
      break;
     inc(x,23*28);
    end;
   writeln('Case ',k,': the next triple peak occurs in ',x-d,' days.');
  end;
end.