poj2752 Seek the Name, Seek the Fame 2012-1-11

Program Stone;
var i,j,k,n:longint;
b,a:array[1..400000]of longint;
s:ansistring;
Begin
assign(input,'input.in');reset(input);
while not(eof) do
begin
readln(s);
j:=0;b[1]:=0;
for i:=2 to length(s) do
begin
while (j>0)and(s[i]<>s[j+1]) do j:=b[j];
if s[i]=s[j+1] then inc(j);
b[i]:=j;
end;
i:=length(S);
k:=0;
while i<>0 do
begin
inc(k);
a[k]:=i;
i:=b[i];
end;
for i:=k downto 1 do write(a[i],' ');
writeln;
end;
close(input);
end.