#include <queue>
#include <iostream>
#include <cmath>
#include <cstdlib>
#include <algorithm>
#include <stack>
#include <string>
#include <vector>
#include <map>

using namespace std;

#define rep(i, n) for(int i = 0; i < (int)(n); i++)
typedef long long ll;
typedef unsigned long long ull;
typedef vector<ll> vint;
typedef vector<string> vstr;
typedef pair<ll, ll> pint;
unsigned long long inf = (1LL << 62);
ll mod = 1000000007;
        
//bool operator< (pint a, pint b) {
	//return a.second < b.second;

//}



ll gcd(ll a, ll b) {

	if (b == 0)
		return a;

	return gcd(b, a % b);


}

ll max(ll a, ll b) {
	if (a < b) {
		return b;
	}
	else
		return a;

}

ll min(ll a, ll b) {
	if (a < b)
		return a;

	return b;
}




pint dx[4] = { {1, 0}, {-1, 0}, {0, 1}, {0, -1} };

vector<pint> list;










void floyd(int N, ll** d) {

	rep(k, N+1){
		rep(i, N+1) {
			if (d[i+1][k+1] == inf) continue;
			rep(j, N+1) {
				if (d[j+1][k+1] == inf) continue;

				d[i+1][j+1] = min(d[i+1][j+1], d[i+1][k+1] + d[j+1][k+1]);

			}

		}
	}




}


ull modpow(ull a, ull b) {
	ll retval = 0;

	if (b == 0) { return 1; }

	else if (b % 2 == 0) {
		retval = modpow(a, b / 2) % mod;
		return (retval * retval) % mod;
	}

	else {
		
		return ((a % mod) * modpow(a, b - 1)) % mod;
	}
}

ull modkaijou(ull a) {

	if (a == 1 || a == 0) { return 1; }

	ll retval = 1;

	for (ull i = a; i >= 1; i--) {
		retval = (retval * (i % mod)) % mod;
	}

	return retval % mod;
}

ull modcomb(ull a, ull b) {

	if (a == 0 || b == 0) return 1;

	return (((modkaijou(a) * modpow(modkaijou(a-b), mod - 2)) % mod) * modpow(modkaijou(b), mod - 2)) % mod;
}



stack<int> to_1;


class DisjointSet {
public:
	vector<int> p, rank, num;


	DisjointSet() {}

	DisjointSet(int size) {
		rank.resize(size, 0);
		p.resize(size, 0);
		num.resize(size, 0);
		rep(i, size) { p[i] = i; rank[i] = 0; num[i] = 1; }
	}

	bool same(int x, int y) {

		return findSet(x) == findSet(y);

	}

	void unite(int x, int y) {
		link(findSet(x), findSet(y));
	}

	void link(int x, int y) {
		if (rank[x] > rank[y]) {

			p[y] = x;
			num[x] += num[y];

		}

		else {
			p[x] = y;
			num[y] += num[x];
			if (rank[x] == rank[y]) {

				rank[y]++;
			}

		}


	}


	ll NumberOfElements(int x) {

		return num[findSet(x)];

	}


	int findSet(int x) {
		if (x != p[x]) {
			p[x] = findSet(p[x]);
			num[x] = 1;
		}

		return p[x];
	}



};




bool compare_b(pint a, pint b) {
	if (a.first < b.first) {
		return true;
	}
	else if (a.first == b.first) {
		return a.second < b.second;
	}

	else {
		return false;
	}

}

int ketasuu(int a) {

	int ret = 1;
	int val = a;
	while (val / 10 != 0) {

		ret += 1;
		val /= 10;
	}
	return ret;
}




string S;

ll N, Q;
ll Sum[100005];

ll dp[4][4][4][101];
vector<pint> query;
char moji[4] = { 'A', 'T', 'G', 'C' };
int main() {
	int l, r;
	cin >> N;

	rep(i, 4) {
		rep(j, 4) {
			rep(k, 4) {

				if (moji[i] == 'A' && moji[j] == 'G' && moji[k] == 'C')
					dp[i][j][k][3] = 0;
				else if (moji[i] == 'A' && moji[j] == 'C' && moji[k] == 'G')
					dp[i][j][k][3] = 0;
				else if (moji[i] == 'G' && moji[j] == 'A' && moji[k] == 'C')
					dp[i][j][k][3] = 0;

				else
					dp[i][j][k][3] += 1;

			
			}
		}
	}


	for (int i = 4; i <= N; i++) {
		rep(j, 4) {
			rep(k, 4) {
				rep(l, 4){
					
					rep(m, 4) {
						if (moji[m] == 'C' && ((moji[k] == 'G' && moji[l] == 'A') || (moji[l] == 'G' && moji[k] == 'A'))) { continue; }
						if (moji[m] == 'G' && ((moji[k] == 'A' && moji[l] == 'C'))) { continue; }
						if (moji[m] == 'C' && ((moji[j] == 'A' && moji[l] == 'G') || (moji[j] == 'A' && moji[k] == 'G'))) { continue; }

						dp[k][l][m][i] += dp[j][k][l][i-1];

						dp[k][l][m][i] %= mod;
					}
				
				}
			}
		}
	}




	ll ans = 0;

	rep(i, 4) {
		rep(j, 4) {
			rep(k, 4) {
				ans += dp[i][j][k][N];
				ans %= mod;
			}
		}
	}

	
		cout << ans << endl;
	
	return 0;
}

Measured memory_bytes: 256