import "IterN" import "Random" foo :: Integer -> Double foo n = runRandom $ foldlN addRandom 0.0 n addRandom :: Double -> Integer -> Double addRandom v i = v + randomDouble main = "Foo" -- Foo