var a,b:string;
    n,i:longint;
    t:boolean;
    m:array[1..2000000] of longint;
    
begin
  assign(input,'strmatch.in');
  assign(output,'strmatch.out');
  reset(input);
  rewrite(output);
  readln(a);
  readln(b);
  t:=true;
  n:=0;
  while t do begin
    t:=false;
    i:=pos(a,b);
    if i>0 then begin
      inc(n);
      t:=true;
      m[n]:=i-1;
      b[i]:='*';
    end;
  end;
  writeln(n);
  if n>1000 then n:=1000;
  for i:=1 to n do write(m[i],' ');
end.