[Haskell-beginners] Randomly selecting a data constructor