'.'%n|n>0=show n
c%_=[c]
f x=do i<-[0..818];x!!i%sum[1|d<-[1,40,41,42],j<-[i+d,i-d],j>0,j<819,x!!j=='*']
main=interact f