writeIn :: Color -> IO a -> IO a
writeIn col x = do
  setSGR [SetColor Foreground Vivid col]
  _r <- x
  setSGR [Reset]
  return _r
writeIn :: Color -> IO a -> IO a
writeIn col x = do
  setSGR [SetColor Foreground Vivid col]
  _r <- x
  setSGR [Reset]
  return _r
writeIn col x = do
  setSGR [SetColor Foreground Vivid col]
  _r <- x
  setSGR [Reset]
  return _r