$a=<>-2;print$a*($a+1)/2