--- random.ghc	2004-10-07 08:51:20.000000000 -0400
+++ random.hs	2004-10-07 08:52:27.000000000 -0400
@@ -12,7 +12,9 @@
 
 randloop :: Int -> Int -> Double -> Double -> Double
 randloop 0 seed r max = r
-randloop n seed r max = randloop (n-1) newseed newrand max
+randloop n seed r max
+	| n `seq` seed `seq` r `seq` False = undefined
+	| otherwise =  randloop (n-1) newseed newrand max
     where normalize x max = (fromIntegral x) * (max / imd)
           newseed         = (seed * ia + ic) `mod` im
           newrand         = normalize newseed max