while gets
	n,k = $_.split.map(&:to_i)
	break if n == 0 
	l = gets.split.to_a.map(&:to_i)
	n.times do
		m = gets.split.to_a.map(&:to_i)
		k.times do |i|
			l[i] -= m[i]
		end
	end
	puts l.min < 0 ? "No" : "Yes"
end