f[]=" ";f(x:y)=x:f(init y)++[last y];m@main=getLine>>=putStrLn.f>>m