ll a[2d4],y;{rd(y);REP(y){rd(y);rep(j,2d4)(a[j]+=abs(y-j))<?=j?a[j-1]:MD;}wt(a[1d4]);}