import GHC
import {-# SOURCE #-} Error ( error )
import PrelList
+import PrelMaybe
import ArrBase ( Array, array, (!) )
import Unsafe ( unsafePerformIO )
in doDiv (i `div` (b^l)) l
\end{code}
-
%*********************************************************
%* *
\subsection{Numeric primops}