program potrivire;
var f,g:text;
    a,b,s:ansistring;
    v:array [1..2000000] of longint;
    i,nr:longint;

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