 foo where     foo g = do         clearScreen         setCursorPosition 0 0    -- row col         let (index, gen') = randomR (0, l) g         putStrLn $ list !! index          threadDelay $ sec * oneSecond         