program potrivire;
var s,s1:ansistring;
    a:array[1..100000]of longint;
    f,g:text;
    i,j,ans:longint;
    u:boolean;
begin
  assign(f,'strmatch.in');
  reset(f);
  assign(g,'strmatch.out');
  rewrite(g);
  readln(f,s1);
  readln(f,s);

  ans:=0;
  for i:=1 to length(s)-length(s1)+1 do
    begin
      u:=true;
      for j:=1 to length(s1) do
         if s1[j]<>s[i+j-1] then begin u:=false; break; end;
      if u then begin
              inc(ans);
              a[ans]:=i-1;
              end;
      end;
  writeln(g,ans);
  for i:=1 to ans do write(G,A[I],' ');
  close(g);
end.