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?

-- Don