a=1:100;write(a[-a*(a+1)/2],1,1)