 sec = mapM_ $ \index -> do     clearScreen     setCursorPosition 0 0    -- row col     putStrLn $ list !! index      threadDelay $ sec * oneSecond  main :: IO () main = do   setTitle "Quotes"   hideCursor             -- catch ctrl+c for showCursor   gen <- newStdGen       str <- readFile fileName   let qlist = splitStr '~' str   let len = length qlist -0   