local n, c, v = io.read("*n", "*n", "*n")
local s, t, y = {}, {}, {}
local edge = {}
for i = 1, n do edge[i] = {} end
for i = 1, v do s[i] = io.read("*n") end
for i = 1, v do t[i] = io.read("*n") end
for i = 1, v do y[i] = io.read("*n") end
for i = 1, v do
  local m = io.read("*n")
  if not edge[s[i]][t[i]] then
    edge[s[i]][t[i]] = {}
  end
  table.insert(edge[s[i]][t[i]], {y[i], m})
end

local len = {}
local taskstate = {}
local inf = 1000000000
for i = 1, n * c do
  len[i] = inf
  taskstate[i] = false
end
local tasks = {}
local tasknum = 0
local done = 0
for dst, y_ms in pairs(edge[1]) do
  for _u, y_m in pairs(y_ms) do
    local idx = (y_m[1] - 1) * n + dst
    len[idx] = y_m[2]
    if dst < n then
      table.insert(tasks, idx)
      tasknum = tasknum + 1
      taskstate[idx] = true
    end
  end
end
local mfl, mmi = math.floor, math.min
while done < tasknum do
  done = done + 1
  local idx = tasks[done]
  taskstate[idx] = false
  -- src ~= n
  local src = idx % n
  local yen = 1 + mfl((idx - src) / n)
  for dst, y_ms in pairs(edge[src]) do
    for _u, y_m in pairs(y_ms) do
      local dst_idx = (yen + y_m[1] - 1) * n + dst
      if dst_idx <= n * c then
        if len[idx] + y_m[2] < len[dst_idx] then
          len[dst_idx] = len[idx] + y_m[2]
          if dst < n and not taskstate[dst_idx] then
            table.insert(tasks, dst_idx)
            tasknum = tasknum + 1
            taskstate[dst_idx] = true
          end
        end
      end
    end
  end
end
local minval = inf
for i = 1, c do
  minval = mmi(minval, len[i * n])
end
if minval == inf then
  print(-1)
else
  print(minval)
end