import Control.Monad

main = do
  n <- getLine >>= return . read
  when (n/=0) $ do
    pts <- replicateM n $ getLine >>= return . map read . words
    m   <- getLine >>= return . read
    ops <- replicateM m $ getLine >>= return . words
    putStrLn $ solve pts ops
    main

solve pts ops = if ok then "Yes" else "No" where
  ok = all (`elem` poss) pts
  poss = scanl (flip($)) [10,10] oops
  oops = ops >>= \[[d],t] -> replicate (read t) (mkf d)
  mkf d [x,y] = [x+if d=='E' then 1 else if d=='W' then -1 else 0
                ,y+if d=='N' then 1 else if d=='S' then -1 else 0]