main :: IO ()
main = getLine >>= \nn -> getLine >>= \s -> let [n,a,b] = (map read) $ words nn in mapM_ putStrLn $ solve (a+b) a b 0 0 s
--  where
    -- n = head ss
    -- a = undefined
    -- b = undefined

solve :: Int -> Int -> Int -> Int -> Int -> String -> [String]
solve _ _ _ _ _ []     = []
solve n a b a0 b0 (s:ss)
  | s == 'c'                        = "No"  : (solve n a b a0 b0 ss)
  | s == 'a' && a0+b0 < n           = "Yes" : (solve n a b (a0+1) b0 ss)
  | s == 'b' && a0+b0 < n && b0 < b = "Yes" : (solve n a b a0 (b0+1) ss)
  | otherwise                       = "No" : (solve n a b a0 b0 ss)