p=*0..gets.to_i
s=0
f=->a{a>p[a]?p[a]=f[p[a]]:a}
a,b=$<.map(&:split).transpose.map{|a|i=0
a.map{[_1.to_i,i+=1]}.sort.each_cons(2).map{[_2[0]-_1[0],_1[1],_2[1]]}}
(a+b).sort.map{|c,*a|a,b=a.map &f
a<b&&(s+=c
p[b]=a)}
p s