import Data.List main=interact$m g.unlines.m unwords.t.m(t.fst.span(any(/=' ')).t.m(++cycle" ")).t.m words.lines.m f t=transpose m=map f ' '='`' f x=g x g '`'=' ' g x=x