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