main :: IO ()
main = do
as <- getArgs
mt <- newPureMT
let colors = randomRs (lo,hi) mt :: [RGB]
print $ zip tx cs
where
    lo = read $ as !! 0
    hi = read $ as !! 1
    tx =        as !! 2

Why is as not visible in the where block?

2008/9/13 Brandon S. Allbery KF8NH <allbery@ece.cmu.edu>

On 2008 Sep 12, at 21:57, Don Stewart wrote:

cetin.sert:

random = color2
randomR = colorR

color2 :: RandomGen g .$B"M.(B g .$B"*.(B (RGB,g)
color2 = colorR (minRGB,maxRGB)

color :: RandomGen g .$B"M.(B g .$B"*.(B (RGB,g)
color s0 = ((r,g,b),s3)
where

There's some corruption in this text. Could you post the file somewhere?

It's not corrupt; he used UTF-8 symbols. It shows up properly in Mail.app but doesn't quote right (admittedly I force plaintext).

--
brandon s. allbery [solaris,freebsd,perl,pugs,haskell] allbery@kf8nh.com
system administrator [openafs,heimdal,too many hats] allbery@ece.cmu.edu
electrical and computer engineering, carnegie mellon university KF8NH