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

satisfaction = 0


n.times do |i|
  satisfaction += b[a[i].to_i - 1].to_i

  if i > 0 && a[i].to_i - a[i-1].to_i == 1
    satisfaction += c[a[i-1].to_i - 1].to_i
  end
end


p satisfaction