ll N,a,d[101],x;{rd(N);for(;N--;++d[a])rd(a);rep(i,101)rep(j,i)x+=d[i]*d[j]*d[0..j-1];wt(x%=1d9+7);}