program kmp_brute;
var f,g:text;
a,b:ansistring;
v:array [1..2000000] of longint;
n,i:longint;
c:char;
 BUFIN,BUFOUT:ARRAY[1..65000] OF BYTE;

begin
assign (f,'strmatch.in'); reset (f);
assign(g,'strmatch.out'); rewrite (g);
  settextbuf (f,bufin); settextbuf (G,BUFOUT) ;
readln (f,a);
read (f,b);
n:=0;
for i:=1 to length (b)-length (a)+1 do
begin
if copy (b,i,length (a))=a then
begin
n:=n+1; v[n]:=i-1;
end;
end;
if n<=1000 then
begin
writeln(g,n);
for i:=1 to n do
write (g,v[i],' ');
end
else
begin
writeln (g,1000);
for i:=1 to 1000 do
write (g,v[i],' ');
end;
close  (f); close (G);
end.