use bigint;$n*=1-$n*$n/2for($n=<>)x8;print$n%1e300