(let1 s string-split(dolist(l(cdr(s(read-block 9020)#[-])))(print(-(length(s l"***"))1))))