Program potriviresir;
type tabelchar=array[0..2000010] of char;
			tabelpi=array[0..2000010] of longint;
			solutie=array[1..2000010] of longint;
var a,b:tabelchar;
		pi:tabelpi;
		sol:solutie;
		la,lb,i,r:longint;
		c:char;
		f1,f2:text;

Procedure prefix;
	var i,k:longint;
	begin
		k:=0;
		pi[1]:=0;
		for i:=2 to la do
			begin
				while (k>0) and (a[k+1]<>a[i]) do
					k:=pi[k];
				if a[k+1]=a[i] then
					k:=k+1;
				pi[i]:=k;
			end;
	end;

Procedure KMP;
	var i,k:longint;
begin
	k:=0;
	for i:=1 to lb do 
		begin
			while (k>0) and (b[i]<>a[k+1]) do 
				k:=pi[k];
			if a[k+1]=b[i] then
				k:=k+1;
			if k=la then 
				begin
					r:=r+1;
					sol[r]:=i-la;
				end;
		end;
end;

begin
	assign(f1,'strmatch.in'); reset(f1);
	assign(f2,'strmatch.out'); rewrite(f2);

	la:=0;
	while not eoln(f1) do
		begin
			la:=la+1;
			read(f1,c);
			a[la]:=c;
		end;
	readln(f1);
	lb:=0;
	while not eoln(f1) do
		begin
			lb:=lb+1;
			read(f1,c);
			b[lb]:=c;
		end;

	r:=0;
	if la<lb then 
			begin
				prefix;
				KMP;
			end;

	writeln(f2,r);
	if r>1000 then r:=1000;
	for i:=1 to r do 
		write(f2,sol[i],' ');

	close(f1);
	close(f2);
end.