program p1;
var s,s1,c:string;p,i,k:integer;f,g:text;
   v:array[1..1000]of integer;
begin
     assign(f,'strmatch.in');reset(f);
     assign(g,'strmatch.out');rewrite(g);
         readln(f,s);
         readln(f,s1); P:=1;c:='1';
          WHILE P<>0 DO BEGIN
          p:=pos(s,s1);
           if p<>0 then begin
             inc(k);
             v[k]:=p-1;end;

           delete(s1,p,length(s)-1);
            for i:=1 to length(s)-1 do insert(c,s1,p);END;
               writeln(g,k);
                for i:=1 to k do write(g,v[i],' ');
            close(f);close(g);
           end.