main=readLn>>=interact.(#)
n#s=last$s:[a++'\n':n#b|(a,c:b)<-map(`splitAt`s)[0..n-1],all(c<=)a]