main=interact$ \s->unlines$init$scanr(\_(h:t)->t++[h])s s