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

ans = 0
last = nil
N.times do |i|
  ans += B[A[i]-1]
  ans += C[last] if last == A[i]-2
  last = A[i]-1
end
puts ans
