local mmi, mma = math.min, math.max
local h, w = io.read("*n", "*n")
local n, m = io.read("*n", "*n")
local r1, r2, c1, c2, a = {}, {}, {}, {}, {}
for i = 1, n do
  r1[i], r2[i], c1[i], c2[i], a[i] = io.read("*n", "*n", "*n", "*n", "*n")
end

local t = {}
for i = 1, h do
  t[i] = {}
  for j = 1, w do
    t[i][j] = 0
  end
end
for i = 1, m do
  local x, y, b, c = io.read("*n", "*n", "*n", "*n")
  local rowmin = mma(1, x - b)
  local rowmax = mmi(h, x + b)
  local colmin = mma(1, y - b)
  local colmax = mmi(w, y + b)
  t[rowmin][colmin] = t[rowmin][colmin] + c
  if rowmax < h then
    t[rowmax + 1][colmin] = t[rowmax + 1][colmin] - c
  end
  if colmax < w then
    t[rowmin][colmax + 1] = t[rowmin][colmax + 1] - c
  end
  if rowmax < h and colmax < w then
    t[rowmax + 1][colmax + 1] = t[rowmax + 1][colmax + 1] + c
  end
end
for i = 1, h do
  for j = 1, w - 1 do
    t[i][j + 1] = t[i][j + 1] + t[i][j]
  end
end
for j = 1, w do
  for i = 1, h - 1 do
    t[i + 1][j] = t[i + 1][j] + t[i][j]
  end
end
for i = 1, h do
  for j = 1, w - 1 do
    t[i][j + 1] = t[i][j + 1] + t[i][j]
  end
end
for j = 1, w do
  for i = 1, h - 1 do
    t[i + 1][j] = t[i + 1][j] + t[i][j]
  end
end
local ret = 0
for i = 1, n do
  local v = t[r2[i]][c2[i]]
  if 1 < r1[i] then
    v = v - t[r1[i] - 1][c2[i]]
  end
  if 1 < c1[i] then
    v = v - t[r2[i]][c1[i] - 1]
  end
  if 1 < r1[i] and 1 < c1[i] then
    v = v + t[r1[i] - 1][c1[i] - 1]
  end
  if v < a[i] then ret = ret + 1 end
end
print(ret)