abs x * signum x == x
>>> signum (-1) -1
>>> signum zero == zero True
>>> signumInteger 5 1
>>> signum 5 1
> signum' xx' signum x' :: Int
> evl (signum' minusTwo) :: Int -1
> signumE signum :: Int -> Int