integralRandomR (a,b) g = case randomR (c,d) g of
                            (x,h) -> (fromIntegral x, h)
  where (c,d) = (fromIntegral a :: Integer
                ,fromIntegral b :: Integer)
integralRandomR (a,b) g = case randomR (c,d) g of
                            (x,h) -> (fromIntegral x, h)
  where (c,d) = (fromIntegral a :: Integer
                ,fromIntegral b :: Integer)
integralRandomR (a,b) g = case randomR (c,d) g of
                            (x,h) -> (fromIntegral x, h)
  where (c,d) = (fromIntegral a :: Integer
                ,fromIntegral b :: Integer)