#include //#include //using namespace atcoder; using namespace std; using ll = long long; using vll = vector; using vvll = vector; using vvvll = vector; using vb = vector; using vvb = vector; using vvvb = vector; #define all(A) A.begin(),A.end() #define rep(i, n) for (ll i = 0; i < (ll) (n); i++) using pqr = priority_queue, vector>, greater>>; template bool chmax(T& p, T q) { if (p < q) { p = q; return 1; } else { return 0; } } template bool chmin(T& p, T q) { if (p > q) { p = q; return 1; } else { return 0; } } ll gcd(ll(a), ll(b)) { ll c = a; while (a % b != 0) { c = a % b; a = b; b = c; } return b; } ll Eugrid(ll A, ll B, ll& x, ll& y) { if (B == 0) { x = 1; y = 0; return A; } ll C = gcd(A, B); ll D = Eugrid(B, A % B, y, x); y -= A / B * x; return D; }//Ax+By=gcd(A,B)の解 ll W,H; ll N; vector> P; ll dfs(ll L,ll R,ll D,ll U){ ll res=0; rep(p,N){ ll X=P[p].first; ll Y=P[p].second; ll k=0; if(L<=X&&X<=R&&D<=Y&&Y<=U){ k+=(R-L)+(D-U)-1; k+=dfs(L,X-1,D,Y-1); k+=dfs(L,X-1,Y+1,U); k+=dfs(X+1,R,D,Y-1); k+=dfs(X+1,R,Y+1,U); } chmax(res,k); } return res; } ll mod=1e9+7; vector fact, factinv, inv; void prenCkModp(ll n) { fact.resize(n + 5); factinv.resize(n + 5); inv.resize(n + 5); fact.at(0) = fact.at(1) = 1; factinv.at(0) = factinv.at(1) = 1; inv.at(1) = 1; for (ll i = 2; i < n + 5; i++) { fact.at(i) = (fact.at(i - 1) * i) % mod; inv.at(i) = mod - (inv.at(mod % i) * (mod / i)) % mod; factinv.at(i) = (factinv.at(i - 1) * inv.at(i)) % mod; } } ll nCk(ll n, ll k) { if (n < k) return 0; return fact.at(n) * (factinv.at(k) * factinv.at(n - k) % mod) % mod; } ll modPow(long long a, long long n, long long p=mod) { if(a==0)return 0; if (n == 0) return 1; // 0乗にも対応する場合 if (n == 1) return a % p; if (n % 2 == 1) return (a * modPow(a, n - 1, p)) % p; long long t = modPow(a, n / 2, p); return (t * t) % p; } int main() { cin.tie(nullptr); ios::sync_with_stdio(false); prenCkModp(2e6); ll N; cin>>N; ll an=0; rep(i,N+1){ if(i%2==0){ ll k=nCk(N,i); k*=modPow(2,abs(N-2*i)+1); an+=k%mod; } } cout<