open String
open Printf;;while 1=1do
let s=read_line()in
let l=length s-1in
let rec r i=if i>0then((sub s i(l-i+1))^(sub s 0i))::r(i-1)else[s]in
let a=List.sort compare(r l)in
let rec(@)(h::t)i=h=s&(printf"%d "i;printf"
"=List.iter(fun c->printf"%c"c.[l])a)||t@i+1in
a@0done