results = []

loop do

	locs = []

	n = gets.to_i
	break if n == 0
	n.times do
		s = gets.split ' '
		x = s.first.to_i
		y = s.last.to_i
		locs << [x, y]
	end

	m = gets.to_i
	m.times do
		s   = gets.split ' '
		dir = s.first
		dis = s.last.to_i
		dis.times do
			case dir
				when 'N'
					locs.map! { |l| [l[0], l[1] -= 1] }
				when 'S'
					locs.map! { |l| [l[0], l[1] += 1] }
				when 'E'
					locs.map! { |l| [l[0] -= 1, l[1]] }
				when 'W'
					locs.map! { |l| [l[0] += 1, l[1]] }
			end
			locs.reject! { |l| l[0] == 10 && l[1] == 10 }
		end
	end
	results << (locs.length == 0 ? 'Yes' : 'No')
end

results.each { |r| puts r }