program economie;

var
n, i, j, k, l: longint;
a, r: array[1..1000] of longint;
f: text;

begin
 l:= 1;
 assign(f, 'economie.in');
 reset(f);
 readln(f, n);
 for i:= 1 to n do
  readln(f, a[i]);
 for i:= 1 to n do
  for j:= 1 to n do
   if a[i] > a[j] then
    begin
     k:= a[i];
     a[i]:= a[j];
     a[j]:= k;
    end;
 while i > 2 do
  begin
   r[l]:= a[1];
   l:=l+1;
   K:=1;
    for i:= 2 to n do
     begin
      if a[i] mod a[1] > 0 then
       begin
        a[k]:= a[i];
        k:= k+1;
       end;
      k:=k-1;
      i:=k;
     end;
  end;
 assign(f, 'economie.out');
 rewrite(F);
 writeln(f, l-1);
 for i:= 1 to l-1 do
  writeln(f, r[i]);
 close(F);
end.