1 2 3 4 5 6 7 8
{-# OPTIONS_GHC -O2 #-} module Test where import GHC.Num.Integer neg_neg :: Integer -> Integer neg_neg x = integerNegate (integerNegate x)