read
$_ a
for a in $a
{((z+=c*(a-b)*(b-c)<0&&a-c,c=b,b=a))
}
echo $z