n=m=readChar("stdin",!!1:9e3)
for(i in 1:NROW(n))n[i]=sum(m[i+c(a<-40:42,-a[i>41],-1:1)]=="*",na.rm=T)
n[n<1]=".";n[-1>m]=m[-1>m]
cat(n,sep="")