main = interact (unlines.f) f s@(a:b:c)=s:map(' ':)(f.init$b:c) f s=[s]