-{-# OPTIONS -Wall -Werror -fno-warn-unused-binds #-}
+{-# OPTIONS -Wall -fno-warn-unused-binds #-}
-----------------------------------------------------------------------------
-- |
E12,Pico
) where
+import Prelude -- necessary to get dependencies right
+
-- | generalisation of 'div' to any instance of Real
div' :: (Real a,Integral b) => a -> a -> b
div' n d = floor ((toRational n) / (toRational d))