/c/?++$c:($%+=$w,$w+=$c)for<>=~/c|w/g;print$%