poj2752 水题

又2b了一次……

var s:ansistring;
    ans,pre:array[0..10000] of longint;
    i,k,tot:longint;
procedure main;
 begin
 pre[1]:=0;k:=0;
 for i:=2 to length(s) do
  begin
  while (k<>0) and (s[k+1]<>s[i]) do k:=pre[k];
  if s[k+1]=s[i] then inc(k);
  pre[i]:=k;
  end;
 k:=pre[length(s)];
 tot:=0;
 while k<>0 do
  begin
  inc(tot);ans[tot]:=k;
  k:=pre[k];
  end;
 for i:=tot downto 1 do write(ans[i],' ');
 writeln(length(s));
 end;
begin
 while true do
  begin
  readln(s);if s='' then break;
  main;
  end;
end.