  randomElemsFrom qarray = map (qarray !) . randomRs (bounds qarray)  main :: IO () main = do   setTitle "Quotes"   hideCursor             -- catch ctrl+c for showCursor   qarray <- listArray' <$> splitStr '~' <$> readFile fileName   randomElemsFrom qarray <$> newStdGen >>= 