 -> do     clearScreen     setCursorPosition 0 0    -- row col     putStrLn s     threadDelay $ sec * oneSecond  listArray' l = listArray (0, length l) l  main :: IO () main = do   setTitle "Quotes"   hideCursor             -- catch ctrl+c for showCursor   gen <- newStdGen       str <- readFile fileName   let qlist = splitStr '~' str    let qarray = listArray' qlist   let rand = randomRs (bounds qarray) gen   