#include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #define X first #define Y second #define pb push_back #define rep(X,Y) for (int (X) = 0;(X) < (Y);++(X)) #define rrep(X,Y) for (int (X) = (Y)-1;(X) >=0;--(X)) #define repe(X,Y) for ((X) = 0;(X) < (Y);++(X)) #define peat(X,Y) for (;(X) < (Y);++(X)) #define all(X) (X).begin(),(X).end() #define rall(X) (X).rbegin(),(X).rend() #define eb emplace_back #define UNIQUE(X) (X).erase(unique(all(X)),(X).end()) using namespace std; typedef long long ll; typedef pair pii; typedef pair pll; template using vv=vector>; template ostream& operator<<(ostream &os, const vector &t) { os<<"{"; rep(i,t.size()) {os< ostream& operator<<(ostream &os, const pair &t) { return os<<"("< a,ll t){ if(!t) return 0; if(a.size()==1) return 1; //cout< tmp; int n=a.size(); rep(i,n)if(i) tmp.pb(a[i]-(a[i]>a[0])); int few=0; rep(i,n) few+=a[i] dfs"< "; (ans+=few*ret%MOD)%=MOD; //cout< temp(n-1); iota(all(temp),1); ret=dfs(temp,t); //cout<"; (ans+=ret*(i-1))%=MOD; //cout<"; (ans+=1ll*(n-1)*(n-2)/2%MOD*fact[n-1]/2%MOD)%=MOD; (ans+=(i-1)*fact[n-1]%MOD)%=MOD; //cout<>n>>t; vector a(n),io(n); rep(i,n) cin>>a[i]; ll tmp=dfs(a,t); t-=tmp; //cout<