import Control.Applicative
import Control.Monad
import Data.List

main = do
    [n, a, b] <- fmap read . words <$> getLine :: IO [Int]
    ss <- getLine
    let f (p, q) s = do
            let pass = case s of
                    'a' -> p < a + b
                    'b' -> p < a + b && q < b
                    _   -> False
            let p' = if pass then p + 1 else p
            let q' = if s == 'b' then q + 1 else q
            if pass then putStrLn "Yes" else putStrLn "No"
            return (p', q')
    foldM_ f (0, 0) ss