gg=c(1,2,5,2,3,3,2,7)
 total <- 0
 for (n in 1:length(gg)) {add = gg[n]  + gg[n+1]
 total = total + add
 }