#include <bits/stdc++.h>
using namespace std;
#define rep(i,n) for(int i = 0; i < (n);i++)
#define sz(x) int(x.size())
typedef long long ll;
typedef long double ld;
typedef pair<int,int> P;
constexpr int mod = 1e9+7;
struct mint {
  ll x; // typedef long long ll;
  mint(ll x=0):x((x%mod+mod)%mod){}
  mint operator-() const { return mint(-x);}
  mint& operator+=(const mint a) {
    if ((x += a.x) >= mod) x -= mod;
    return *this;
  }
  mint& operator-=(const mint a) {
    if ((x += mod-a.x) >= mod) x -= mod;
    return *this;
  }
  mint& operator*=(const mint a) { (x *= a.x) %= mod; return *this;}
  mint operator+(const mint a) const { return mint(*this) += a;}
  mint operator-(const mint a) const { return mint(*this) -= a;}
  mint operator*(const mint a) const { return mint(*this) *= a;}
  mint pow(ll t) const {
    if (!t) return 1;
    mint a = pow(t>>1);
    a *= a;
    if (t&1) a *= *this;
    return a;
  }
 
  // for prime mod
  mint inv() const { return pow(mod-2);}
  mint& operator/=(const mint a) { return *this *= a.inv();}
  mint operator/(const mint a) const { return mint(*this) /= a;}
};

typedef vector<mint> vec;
typedef vector<vec> mat;

int main() {  
  ll n;
  cin >> n;

  mat A(4, vec(4, 0));
  vec dp(4, 0);

  dp[0] = 1;

  for (int i = 0; i < 4; i++) {
    for (int j = 0; j < 4; j++) if (i != j) A[i][j] = 1;
  }

  auto update = [&](){
    vec ndp(4, 0);
    for (int i = 0; i < 4; i++) {
      for (int j = 0; j < 4; j++) ndp[i] += A[i][j] * dp[j];
    }
    dp = move(ndp);
  };

  auto pow_mat = [&](){
    mat B(4, vec(4, 0));
    for (int i = 0; i < 4; i++) {
      for (int j = 0; j < 4; j++) {
        for (int k = 0; k < 4; k++) B[i][j] += A[i][k] * A[k][j];
      }
    }
    A = move(B);
  }; 

  ll k = n;

  while (k) {
    if (k & 1) update();
    pow_mat();
    k >>= 1;
  }
  
  cout << dp[0].x << endl;

  return 0;
}