a=1:100
write(a[-cumsum(a)],1,T)