poj2752 水题

又2b了一次……

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