/*#include <iostream>
#include <cmath>
#include <vector>
#include <algorithm>
#include <array>
#include <vector>
#include <deque>
#include <set>
#include <map>
#include <string>
#include <stack>
#include <queue>
#include <unordered_map>
#include <unordered_set>
*/

#include <bits/stdc++.h>
using namespace std;

#define int long long
#define pb push_back
#define mp make_pair
#define F first
#define S second
#define FOR(i,a,b) for(int (i)=(a);(i)<(b);(i)++)
#define REP(i,n) FOR(i,0,n)
#define ALL(a) (a).begin(),(a).end()
#define RALL(a) (a).rbegin(),(a).rend()
#define SORT(c) sort((c).begin(),(c).end())

typedef long long ll;
const ll INF = LLONG_MAX - 100;
const ll mod = 1e9 + 7;
const int MAX_N = 5e5 + 5;
int dx[] = { -1LL,0,1LL,0 }, dy[] = { 0,1LL,0,-1LL };
vector<ll> prime;

ll inv[MAX_N], fac[MAX_N];

template <class T = ll> T in() { T x; cin >> x; return (x); }
inline ll GCD(ll a, ll b) { ll c; while (b != 0) { c = a % b; a = b; b = c; }return a; }
inline ll LCM(ll a, ll b) { return a * b / GCD(a, b); }
inline ll POW(ll a, ll b) { ll c = 1LL; while (b > 0) { if (b & 1LL) { c = a * c%mod; }a = a * a%mod; b >>= 1LL; }return c; }
inline void _nCr() { fac[0] = 1LL; for (int i = 1LL; i < MAX_N; i++) { fac[i] = fac[i - 1LL] * i%mod; }for (int i = 0; i < MAX_N; i++) { inv[i] = POW(fac[i], mod - 2); } }
inline ll nCr(ll n, ll r) { return (fac[n] * inv[r] % mod)*inv[n - r] % mod; }
inline void PRI(ll n) { bool a[n + 1LL]; for (int i = 0; i < n + 1LL; i++) { a[i] = 1LL; }for (int i = 2; i < n + 1LL; i++) { if (a[i]) { prime.pb(i); ll b = i; while (b <= n) { a[b] = 0; b += i; } } } }

typedef pair<int, pair<int, int>> edge;

class UnionFind {
private:
	vector<int> par;
public:
	UnionFind(int N) { par = vector<int>(N, -1LL); }
	int find(int x);
	ll size(int x);
	void unite(int x, int y);
	bool same(int x, int y);
};



class Kruskal {
private:
	UnionFind *uf;
	vector<edge> e;
public:
	vector<edge> mst;
	Kruskal(int N) { uf = new UnionFind(N); }
	void add(int x, int y, ll z);
	void run();
};



//----UnionFind-------------------------------
int UnionFind::find(int x) {
	if (par[x] < 0) return x;
	else return par[x] = find(par[x]);
}

ll UnionFind::size(int x) {
	return -par[find(x)];
}

void UnionFind::unite(int x, int y) {
	x = find(x);
	y = find(y);

	//大きい方に小さい方をくっ付ける
	if (size(x) < size(y)) swap(x, y);
	par[x] += par[y];
	par[y] = x;
}

bool UnionFind::same(int x, int y) {
	x = find(x);
	y = find(y);
	return x == y;
}



//----Kruskal-------------------------------
void Kruskal::add(int x, int y, ll z) {
	//x < y
	if (x > y) swap(x, y);
	e.push_back({ z,{x,y} });
}

void Kruskal::run() {
	sort(e.begin(), e.end());
	e.erase(unique(e.begin(), e.end()), e.end());
	for (auto x : e) {
		if (uf->same(x.second.first, x.second.second)) {
			continue;
		}
		else {
			mst.push_back(x);
			uf->unite(x.second.first, x.second.second);
		}
	}
}
int dp[16]={1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1};
int dp1[16]={1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1};
int dp2[16]={1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1};
int nx[16];
int ndp2[16];
void ad(int i,int j,int k,int l,int m) {nx[i] = dp[j]+dp[k]+dp[l]+dp[m];}
signed main() {
	int n;
	cin >> n;
	for (int i = 3;i < n + 1;i++) {
		if (i != 3) REP (j,16) dp2[j]=dp1[j];
		nx[0] = dp[3]+dp[4]+dp[6]+dp[13];
		nx[1] = dp[4]+dp[6]+dp[13];
		nx[2] = dp[5]+dp[8]+dp[15];
		nx[3] = dp[0]+dp[5]+dp[8]+dp[15];
		nx[4] = dp[1]+dp[2]+dp[7]+dp[14];
		nx[5] = dp[2]+dp[7]+dp[14];
		nx[6] = dp[6]+dp[3]+dp[4]+dp[13];
		nx[7] = dp[7]+dp[14]+dp[1]+dp[2];
		nx[8] = dp[8]+dp[15]+dp[0]+dp[5];
		nx[9] = dp[9]+dp[10]+dp[11]+dp[12];
		nx[10]=nx[6];
		nx[11]=nx[7];
		nx[12]=nx[8];
		nx[13]=nx[9];
		nx[14]=nx[9];
		nx[15]=nx[9];
		if (i != 3) {
			nx[2]-=dp2[0];
			nx[14]-=dp2[0];
			nx[2]-=dp2[10];
			nx[2]+=mod*3;
			nx[14]+=mod*2;
		}
		REP (j,16) dp1[j]=dp[j];
		REP (j,16) dp[j] = nx[j]%mod;

	}
	int ans = 0;
	REP (i,16) {ans += dp[i];ans%=mod;}
	cout << ans << endl;
}

Measured memory_bytes: 256