another vecextract ( attempt to understand possibilities)

my(c=vector(300,i,x^i),a=Vec("30..60"),b=[]);a[1]=concat("[",a[1]);a[#a]=concat(a[#a],"]");b=apply(v->c[v],eval(fold((x,y)->concat(x,y),a)))