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

bcnt = b.inject {|x, y| x + y}
d = []
n.times do |i|
  if a[i] + 1 == a[i + 1]
    d << c[a[i] - 1]
  end
end

puts bcnt + d.inject { |x, y| x + y }
