program u410;

var sum,maxsum,number:integer;

    input_file:text;

begin

assign(input_file,'u410.txt');

reset(input_file);

read(input_file,number);

maxsum:=-100;

while(number<>-2) do begin

  sum:=0;

  while(number<>-1) do begin

     sum:=sum+number;

     read(input_file,number);

  end;

  if sum>maxsum then begin

    maxsum:=sum;

  end;

  read(input_file,number);

end;

write ('the largest sum of any list is ',maxsum);

writeln;

end.