var x,v:array[1..1000] of word;
k,s,a,b,nr,n,i,j:word;
f,g:text;
begin
assign(f,'economie.in');reset(f);
assign(g,'economie.out');rewrite(g);
readln(f,n);
for i:=1 to n do readln(f,v[i]);
if v[1]=1 then
begin
writeln(g,'1');
write(g,1);
end
else
begin
for i:=1 to n-1 do
begin
for j:=i+1 to n do
begin
if v[j] mod v[i]=0 then
begin
for k:=j to n do
begin
v[k]:=v[k+1];
dec(n);
end;
end;
end;
end;
s:=v[1]+v[2];
for i:=1 to n do
if v[i] mod s=0 then
begin
for k:=j to n do
begin
v[k]:=v[k]+1;
dec(n);
end;
end;
s:=v[1]+v[2]+v[3];
for i:=1 to n do
if v[i] mod s=0 then
begin
for k:=j to n do
begin
v[k]:=v[k]+1;
dec(n);
end;
end;
s:=v[1]+v[2]+v[3]+v[4];
for i:=1 to n do
if v[i] mod s=0 then
begin
for k:=j to n do
begin
v[k]:=v[k]+1;
dec(n);
end;
end;
j:=1;
nr:=0;
for i:=1 to n do
if v[i]<>0 then
begin
x[j]:=v[i];
inc(nr);
inc(j);
end;
writeln(g,nr);
for i:=1 to nr do write(g,x[i],' ');
end;
close(f);
close(g);
end.