import Text.Regex

main::IO()
main = do
  nab<-getLine
  let n:a:b:[] = map read (words nab)::[Int]
  dat<-getLine
  print_n (solver (a+b) b dat)

solver :: Int -> Int -> [Char] -> [String]
solver  _ _ []=[]
solver  x y ('c':rest) = "No":(solver x y rest)
solver  x y ('b':rest) = if (y>0)&&(x>0) then "Yes":(solver (x-1) (y-1) rest) else "No":(solver x y rest)
solver  x y ('a':rest) = if x>0 then "Yes":(solver (x-1) y rest) else "No":(solver x y rest)

print_n :: [String] -> IO()
print_n []=return()
print_n (str:rest) = do
           putStr str
           putStr "\n"
           print_n rest