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

ans = 0
bf = A[0]

A.each do |a|
    ans += B[a-1]
    ans += C[a-2] if bf == a-1
    bf = a
end

puts ans