S=' '
p=S*40
"$System.in\n".eachLine{c=it+S*40
println((0..33).sum{i->(p[i-1,i]-S-S?'|':S)+(p[i]+c[i]-S-S?'_':S)}-~/ *$/)
p=c}