uses dorand;
type integer=longint;
var i, x:integer;
const minlongint=-maxlongint-1;
begin
  regint (69);
  writeln (500);
  x:=0;
  for i:=1 to 500 do begin
    x:=x+poisson (2.718281828459045, 0, 10);
    writeln (x);
  end;
  writeln (500);
  for i:=1 to 500 do begin
    x:=x+poisson (pi, 0, 10);
    writeln (x);
  end;
end.