#include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include using namespace std; #define endl '\n' #define ALL(v) (v).begin(), (v).end() #define RALL(v) (v).rbegin(), (v).rend() #define UNIQ(v) (v).erase(unique((v).begin(), (v).end()), (v).end()) typedef long long ll; typedef long double ld; typedef pair P; typedef complex comp; typedef vector< vector > matrix; struct pairhash { public: template size_t operator()(const pair &x) const { size_t seed = hash()(x.first); return hash()(x.second) + 0x9e3779b9 + (seed<<6) + (seed>>2); } }; const int inf = 1e9 + 9; const ll mod = 1e9 + 7; const double eps = 1e-8; const double pi = acos(-1); int n; ll mod_pow(ll x, ll n) { ll res = 1; while (n > 0) { if (n & 1) res = (res * x) % mod; x = (x * x) % mod; n >>= 1; } return res; } ll mod_inverse(ll x) { return mod_pow(x, mod-2); } const int max_n = 100001; ll fact[max_n]; ll fact_inv[max_n]; void calc_fact() { fact[0] = 1; for (ll i = 1; i < max_n; i++) fact[i] = (fact[i-1] * i) % mod; fact_inv[max_n-1] = mod_inverse(fact[max_n-1]); for (ll i = max_n-2; i >= 0; i--) fact_inv[i] = (fact_inv[i+1] * (i+1)) % mod; } ll mod_comb(ll n, ll k) { return (fact[n] * fact_inv[k] % mod) * fact_inv[n-k] % mod; } ll solve() { //calc_fact(); ll res = 0; ll comb = 1; for (int i = 0; i <= n; i++) { res = (res + comb * mod_pow(n-i, i) % mod) % mod; comb = comb * (n-i) % mod; comb = comb * mod_inverse(i+1) % mod; } return res; } void input() { cin >> n; } int main() { ios::sync_with_stdio(false); cin.tie(0); cout << fixed << setprecision(15); input(); cout << solve() << endl; }