[Haskell] How to get different two random numbers