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

sat = 0
A.each do |a|
  sat += B[a-1]
end

A.each_cons(2) do |a,b|
  if a + 1 == b
    sat += C[a-1]
  end
end

puts sat
