print$S/s/(.)/$S+=$D+=-$$1+($$1=++$I)/ge/++$I*2for<>