main=interact$f.lines
f x=u[zipWith(&)[0..]$u[take 80$drop i$s++y++s|y<-x]|i<-[1..length(x!!0)+79]]
293&'#'='*'
_&a=a
s=[1..80]>>" "
u=unlines