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