problem711A.hs

import Control.Applicative
import Control.Monad

fixLine [] = Nothing
fixLine (l:ls) = case l of
  ['O','O', _ , _ , _ ] -> Just $ ("++"++ drop 2 l) : ls
  [ _ , _ , _ ,'O','O'] -> Just $ (take 3 l ++"++") : ls
  _ -> (l:) <$> (fixLine ls)

main = do
    n <- read <$> getLine
    lines <- replicateM n getLine
    case fixLine lines of
      Just x -> do putStrLn "YES"
                   mapM_ putStrLn x
      Nothing -> putStrLn "NO"