-- | Underline the given string.
underline :: String -> String
underline s = esc "4" ++ s ++ normal
underline :: String -> String
underline s = esc "4" ++ s ++ normal
underline s = esc "4" ++ s ++ normal