main=interact$f.zip[0..]
f x=do(i,a)<-x;last$[a]:[show$sum[1|(j,'*')<-x,abs(i-j)`elem`1:[16..18]]|'*'<a]