{- import System.Console.Haskeline import System.Console.Haskeline.IO -} import Control.Concurrent import System.IO main = do hSetBuffering stdin NoBuffering c <- getChar putStr "done"