uses crt;
var s1,s2:string;
    a:array [1..50] of integer;
    k,db,j,i:integer;
    f,g:text;

Begin
     clrscr;
     assign(f,'strmatch.in');reset(f);
     assign(g,'strmatch.out');rewrite(g);
     readln(f,s1);
     readln(f,s2);
     k:=length(s1)-1;
     for i:=1 to length(s2)-k do
      if copy(s2,i,k+1)=s1 then begin
                                inc(db);
                                j:=j+1;
                                a[j]:=i;
                                end;
     writeln(db);
     for i:=1 to j do write(g,a[i],' ');
     readln;
     close(f);close(g);
End.