main=interact$(unlines%).lines
u%d=u[zipWith(!)r$u[take 80$drop i$c++y++c|y<-d]|i<-r]
c=r>>" "
r=[500..1078]
793!'#'='*';_!c=c