setTitle :: String -> IO ()
setTitle value = putStr $ "\ESC]0;" ++ value ++ "\007"
setTitle :: String -> IO ()
setTitle value = putStr $ "\ESC]0;" ++ value ++ "\007"
setTitle value = putStr $ "\ESC]0;" ++ value ++ "\007"