hulk<-c(1,1,1,0,0,1,1,0,1,1,1,0,1,1,0,1,1,0)
lenhulk<-length(hulk)
s6<-0
s1<-0
s2<-1
s3<-0
s4<-0
s5<-0


for(i in seq(1,lenhulk,1)) {
if(hulk[i]==1) {
 s4<-s4+hulk[i]
 s3[s2]<-s4
  }

if(hulk[i]==1 && hulk[i+1]==0){
  s2<-s2+1
   s1[s2]<-i
     s4<-0
 }
}