$_=<>;$s+=($w=map/w/g,$_)*~-$w/2*($+[1]-$-[1])while s/.*?(c+)//;print$s+0,$/