preservingColor :: IO a -> IO ()
preservingColor f = get currentColor >>= \c -> f >> color c
preservingColor :: IO a -> IO ()
preservingColor f = get currentColor >>= \c -> f >> color c
preservingColor f = get currentColor >>= \c -> f >> color c