$n=<>;
@a=(0,map<>+0,1..$n-1);
for(1..$n){
	<>=~$";
	$%+=$'-$`;
	$\+=$a[$_]*$%
}
print