N, M = gets.split.map(&:to_i) T = Array.new(M + 1){Array.new(N + 1, 0) } (1 .. M).each do |i| d = gets.split.map(&:to_i) (1 .. N).each do |j| T[i][j] = T[i - 1][j] + d[j - 1] end end found = (1 .. M).find do |i| (1 .. N).each do |j| T[i][j] += T[i][j - 1] end (0 .. N).inject(0) do |r,l| r = (r .. N).find do |j| T[i][j] - T[i][l] >= 777 end break false if r.nil? break true if T[i][r] - T[i][l] == 777 next r end end puts found ? :YES : :NO