[Haskell-cafe] setting seed for random numbers