inds<-c(1,134,408,524)
inds<-c(10,134,408,515)
f<-c()

for ( j in 0:13 ) {
	i=inds+(j*524)

	a <- paste(i[1], i[2], sep="-")

	b <- paste(i[3], i[4], sep="-")

	c <- paste(a,b,sep=",")
	f=c(f,c)
}

m = paste(f[1:7], collapse=",")
n = paste(f[8:14], collapse=",")

m = paste(m, "@CA", sep="")
n = paste(n, "@CA", sep="")

m = paste(":", m, sep="")
n = paste(":", n, sep="")

final <- paste(m, n, sep=" ")