main=interact$(>>=(\x->(++" ").show.succ.length.filter((>'_').snd).takeWhile(/=('_','_'))$zip x$tail x)).lines