N = gets.to_i
A = gets.split.map(&:to_i)
B = gets.split.map(&:to_i)
C = gets.split.map(&:to_i)

score = 0
A.each_with_index do |a, idx|
  score += B[a - 1]
  if idx > 0
    if a - A[idx - 1] == 1
      score += C[A[idx - 1] - 1]
    end
  end
end
p score
