import System.Random (randomRIO)
 
  pick :: [a] -> IO a
  pick xs = fmap (xs !!) $ randomRIO (0, length xs - 1)
 
  main = do
    x <- pick lifeAdvice
    print x