r=reverse main=do(a:s)<-getLine;mapM putStrLn[b:t|n<-r[0..99],b:t<-[r$g$r$map(n#)$scanl f(9,a)s]] m#(n,c)|m/=n=' '|1>0=c f(n,a)b=(n+min(length[a..b]-1)1,b) g(' ':s)=g s;g s=s