a = gets.to_i

b = gets.chomp.split.map(&:to_i)

c = gets.chomp.split.map(&:to_i)

d = gets.chomp.split.map(&:to_i)

reselt = c.sum

i = 0

while i < a
	if b[i+1] == (b[i]+1)
		reselt += d[b[i]-1]
	end
	i += 1
end

puts reselt