<>=~$";$L=$'; / .* /, $t+=$`-$l, $t+=($t+$&)%(2*$')<$'?$&:$&+(2*$'-$t%(2*$'))%(2*$'), $l=$`+$& for<>; print$t+$L-$l