import Control.Applicative
import Control.Monad

main :: IO ()
main = do
  [n, a, b] <- getInts
  ss <- getLine
  let ans = solve a b ss
  mapM_ putStrLn ans
  
getInts :: IO [Int]
getInts = map read . words <$> getLine

solve :: Int -> Int -> String -> [String]
solve a b ss = go ss 0 0 
  where
    go [] _ _ = []
    go (c:cs) a' b'
      | a' + b' >= a + b = "No" : go cs a' b'
      | c == 'a' = "Yes" : go cs (a'+1) b'
      | c == 'b' &&
        b' < b = "Yes" : go cs a' (b' + 1)
      | otherwise = "No" : go cs a' b'
