n = gets.to_i
a = gets.split.map(&:to_i)
b = gets.split.map(&:to_i)
c = gets.split.map(&:to_i)

satB = b.inject(:+)
satC = 0

(n - 1).times do |i|
  if a[i] + 1 == a[i + 1]
    satC += c[a[i] - 1]
  end
end

puts satB + satC