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