main=interact$(unlines%).lines u%d=u[u[[[c++e++c|e<-d]!!y!!(x+i)!(x*4+y)|x<-r]|y<-[0..6]]|i<-[81..]] c=r>>" " r=[0..79] '#'!203='*';c!_=c