#pragma GCC optimization ("O3")

#include <bits/stdc++.h>

using namespace std;

using ll = long long;
using vec = vector<ll>;
using mat = vector<vec>;
using pll = pair<ll,ll>;

#define INF (1LL<<61)
#define MOD 1000000007LL 
//#define MOD 998244353LL
#define EPS (1e-10)

#define PR(x) cout << (x) << endl
#define PS(x) cout << (x) << " "
#define REP(i,m,n) for(ll (i)=(m),(i_len)=(n);(i)<(i_len);++(i))
#define FORE(i,v) for(auto (i):v)
#define ALL(x) (x).begin(), (x).end()
#define SZ(x) ((ll)(x).size())
#define REV(x) reverse(ALL((x)))
#define ASC(x) sort(ALL((x)))
#define DESC(x) {ASC((x)); REV((x));}
#define BIT(s,i) (((s)>>(i))&1)
#define pb push_back
#define fi first
#define se second

template<class T> inline int chmin(T& a, T b) {if(a>b) {a=b; return 1;} return 0;}
template<class T> inline int chmax(T& a, T b) {if(a<b) {a=b; return 1;} return 0;}
class mint {
public:
    ll x;
    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 {mint b(*this); return b+=a;}
    mint operator-(const mint& a) const {mint b(*this); return b-=a;}
    mint operator*(const mint& a) const {mint b(*this); return b*=a;}
    mint pow(ll t) const {if(!t) return 1; mint a=pow(t>>1); return (t&1?*this*a:a)*a;}
    mint inv() const {return pow(MOD-2);}
    mint& operator/=(const mint& a) {return *this*=a.inv();}
    mint operator/(const mint& a) const {mint b(*this); return b/=a;}
};
istream &operator>>(istream& is, mint& a) {ll t; is>>t; a=t; return is;}
ostream &operator<<(ostream& os, const mint& a) {return os<<a.x;}
using mvec = vector<mint>;
using mmat = vector<mvec>;

mat matmul(mat A, mat B)
{
    ll N = SZ(A);
    mat C(N, vec(N, 0));
    REP(i,0,N) {
        REP(j,0,N) {
            REP(k,0,N) C[i][j] += A[i][k]*B[k][j], C[i][j] %= MOD;
        }
    }
    return C;
}

mat matpow(mat A, ll n)
{
    if(n == 0) {
        ll N = SZ(A);
        mat I(N, vec(N, 0));
        REP(i,0,N) I[i][i] = 1;
        return I;
    }
    mat T = matpow(A, n>>1);
    T = matmul(T, T);
    if(n&1) T = matmul(T, A);
    return T; 
}

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

    string S = "XILR";
    vector<string> T;
    REP(i,0,4) {
        REP(j,0,4) {
            REP(k,0,4) {
                string t = "***";
                if((i == 0 && j == 0) || (j == 0 && k == 0)) continue;
                if(!((i == 1 && j == 1 && k != 1) || (i != 1 && j == 1 && k == 1) || (i != 1 && j != 1 && k != 1))) continue;
                t[0] = S[i]; t[1] = S[j]; t[2] = S[k];
                T.pb(t);
            }
        }
    }

    auto check = [](string x, string y) {
        bool res = true;
        REP(i,0,3) {
            bool tmp = false;
            tmp |= (x[i] == 'X' && (y[i] == 'I' || y[i] == 'L'));
            tmp |= (x[i] == 'I' && (y[i] == 'X' || y[i] == 'I' || y[i] == 'L'));
            tmp |= (x[i] == 'L' && y[i] == 'R');
            tmp |= (x[i] == 'R' && (y[i] == 'X' || y[i] == 'I' || y[i] == 'L'));
            res &= tmp;
        }
        return res;
    };

    ll M = SZ(T);
    mat A(M, vec(M));
    REP(i,0,M) {
        REP(j,0,M) A[i][j] = check(T[i], T[j]);
    }
    A = matpow(A, N+1);
    PR(A[27][14]);

    return 0;
}

/*



*/