var f,g:text;
    a,b:ansistring;
    p,i:longint;
    v:array[1..2000000] of longint;
begin
  assign(f,'strmatch.in');
  assign(g,'strmatch.out');
  reset(f);
  rewrite(g);
  readln(f,a);
  readln(f,b);
  p:=0;
  while pos(a,b)>0 do
    begin
      inc(p);
      v[p]:=pos(a,b);
      b[pos(a,b)]:='-';
    end;
  writeln(g,p);
  for i:=1 to p-1 do
    write(g,v[i]-1,' ');
  writeln(g,v[p]-1);
  close(f);
  close(g);
end.