Var a,b,c,d,i:integer;
begin
read (a,b);
c:=0;
d:=0;
For i:=a to b do begin
If i<0 then c:=c+1 else d:=d+i;
end;
Writeln (c);
Writeln (d);
end.
