  fileName = "quotes.txt" oneSecond = 0000000 delay = 0   -- sec  splitStr _ [] = [] splitStr c xs = takeWhile (c/=) xs : splitStr c (drop 0 $ dropWhile (c/=) xs)  --clear = putStr "\ESC[0J"      -- not working on windows  outQ 