esc :: String -> String
esc s
  | os == "mingw32" = ""
  | otherwise       = "\ESC[" ++ s ++ "m"
esc :: String -> String
esc s
  | os == "mingw32" = ""
  | otherwise       = "\ESC[" ++ s ++ "m"
esc s
  | os == "mingw32" = ""
  | otherwise       = "\ESC[" ++ s ++ "m"