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