program Project1;
var n:byte;
    s:integer;
begin
  n:=1;    
  while p>=0do begin
             readln(p,e,i,d);
              
             writeln('Case',n,': the next triple peak occurs in ',s-d' days.')
              end 
end.