n = gets.to_i
a = gets.split.map(&:to_i)
b = gets.split.map(&:to_i)
c = gets.split.map(&:to_i)
count = -1
ans = 0

n.times do |i|
  ans += b[a[i]-1]
  if count + 1 == a[i]
    ans += c[a[i-1]-1]
  end
  count = a[i]
end

puts ans