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