character*999::c="";do1;n=0;do2 i=1,451;read'(a1$)',c(i+42:);k=c(i:i)//c(i+40:)=="** *";2 n=n+k;1 print'(i0)',n;end