(use text.parse)(dolist(l(cdr(string-split(read-string 9020)#[-])))(let a((l l)(c 0))(cond((#/ \* (?=.{38}\* \*.{38} . )/l)=>(rec(d x)(a(x'after)(+ c 1))))(1(print c)))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).