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