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