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

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top