Writing out data from a list

a<- list(a=c(0.00,0.00),b=c(2,2,2),c=c(3,3,3))
t<-NULL
m<-1
for( i in a) {t<-c(t,paste("Event",m),i);m<-m+1}