program caca;
var p,t:string;
v:array[1..100] of integer;
i,j,n,m,k,z:word;
f,g:text;
begin
 z:=0;
 k:=0;
 assign(f,'strmatch.in');
 reset(f);
 readln(f,p);
 readln(f,t);
 close(f);
 n:=length(t);
 m:=length(p);
 for i:=1 to n-m do
  if p=copy(t,i,m) then begin inc(z); inc(k); v[k]:=i-1; end;
 assign(g,'strmatch.out');
 reset(g);
 rewrite(g);
 writeln(g,z);
 for i:=1 to k do write(g,v[i],' ');
 close(g);
 end.