main=interact([0..271]&)
s&x=do i<-s;x!!i%sum[1|j<-s,elem(abs$i-j)$1:[16..18],x!!j=='*']
'.'%i=show i
x%i=[x]