var n, i: Longint;

begin
 randomize;
 n := (random(500) + 1) * 2;
 writeln(n);
 for i := 1 to n do
  write(random(32767) + 1, ' ');
 writeln
end.
