ZOJ2006 (最小表示法）

var s:ansistring;
    cas:longint;
function minp(st,len:longint):longint;
var p1,p2,k,tmp:longint;
begin
    p1:=; p2:=; k:=;
    while ((p1<len)and(p2<len)and(k<=len)) do
    begin
        tmp:=ord(s[st+(p1+k) mod len])-ord(s[st+(p2+k) mod len]);
        if (tmp=) then inc(k)    else
        begin
            if (tmp<) then p2:=p2+k+ else p1:=p1+k+;
            if (p1=p2) then inc(p2); k:=;
        end;
    end;
    if (p1>p2) then exit(p2+st) else exit(p1+st);
end;
begin
    readln(cas);
    while cas> do begin dec(cas);
    readln(s);
    writeln(minp(,length(s)));
    end;
end.