use bigint;$n-=$n*$n/2*$n-<>for@INC;print$n%1e300