l=STDIN.readlines.map(&:chomp)
a_list=l[1].split(' ').map(&:to_i)
b_list=l[2].split(' ').map(&:to_i)
c_list=l[3].split(' ').map(&:to_i)
score=0
a_list.each_with_index do |a,i|
  score+=b_list[a-1]
  if(i>0 && a_list[i-1]+1==a)
    score+=c_list[a_list[i-1]-1]
  end
end
print(score)