s:=0;File standardInput readLines map(v,list("-","_")map(c,if(0<a:=v occurancesOfSeq(c),writeln(s=s+a))))