\begin{code}
{-# OPTIONS_GHC -XNoImplicitPrelude #-}
+-- We believe we could deorphan this module, by moving lots of things
+-- around, but we haven't got there yet:
{-# OPTIONS_GHC -fno-warn-orphans #-}
{-# OPTIONS_HADDOCK hide #-}
-----------------------------------------------------------------------------
| n `eqInt` 0 = 0
| otherwise = 1
+ {-# INLINE fromInteger #-} -- Just to be sure!
fromInteger i = I# (toInt# i)
quotRemInt :: Int -> Int -> (Int, Int)