str<-c(12,11,16:14)
str<-c(13,1:4)
str<-c(10:7,5,6)

str<-c(14:12,3:1)
str<-c(4:8, 10); str<-c(10,8:4)
str<-c(11,15,16,9)

n<-length(str)
D<-dist[c(1, str+1), c(1, str+1)]; D
L<-D[1,2]
for (i in 1:(n-1))
   L<-L+D[i+1, i+2]
L<-L+D[(n+1),1]
L