random haskell experiments