var
fi,fo:text;
N:byte;
M,i,k,k1,dem:longint;
begin
assign(fi,'CHIAHET.INP');reset(fi);assign(fo,'CHIAHET.OUT');rewrite(fo);
read(fi,n,m);
k:=1;
{xac dinh gioi han xet}
for i:=1 to n-1 do
k:=k*10;
k1:=k;
k:=k*10-1;
{xac dinh so dau tien thoa man}
i:=k1;
while ( i <= k ) and ( i mod m <> 0) do inc(i);
dem:=(k-i) div (m)+1;
writeln(fo,dem);
while i < k do
begin
writeln(fo,i);
i:=i +m;
end;
close(fi);close(fo);
end.