var b,c,f,n,g:longint;
a:array[1..1000] of boolean;
d:integer;
begin
readln(n);
b:=0;
fillchar(a,sizeof(a),false);
for f:=1 to n do
begin
read(c);
if not a[c] then begin a[c]:=true;inc(b);end;
end;
writeln(b);
for f:=1 to 1000 do
if a[f] then write(f,' ');
readln
end.
s:array[0..9] of longint;
i,j,k,n,m,x:longint;
begin
readln(m,n);
for i:=m to n do
begin
x:=i;
while x<>0 do
begin
j:=x mod 10;inc(s[j]);
x:=x div 10;
end;
end;
for i:=0 to 8 do write(s[i],' ');
writeln(s[9]);
end.
a:array[0..9] of longint;
i,j,k,n,m,x:longint;
begin
readln(m,n);
for i:=m to n do
begin
x:=i;
while x<>0 do
begin
j:=x mod 10;inc(a[j]);
x:=x div 10;
end;
end;
for i:=0 to 8 do write(a[i],' ');
writeln(a[9]);
readln;
end.
var
d:array['0'..'9']of longint;
i,j:longint;
m,n:qword;
s:string;
e:char;
begin
readln(m,n);
fillchar(d,sizeof(d),0);
for i:=m to n do
begin
str(i,s);
for j:=1 to length(s) do inc(d[s[j]]);
end;
for e:='0' to '8' do write(d[e],' '); writeln(d['9']);
readln;
end.