#include<deque>
#include<queue>
#include<vector>
#include<algorithm>
#include<iostream>
#include<set>
#include<cmath>
#include<tuple>
#include<string>
#include<chrono>
#include<functional>
#include<iterator>
#include<random>
#include<unordered_set>
#include<unordered_map>
#include<array>
#include<map>
#include<bitset>
#include<iomanip>
using namespace std;
typedef long long int llint;
typedef long double lldo;
#define mp make_pair
#define mt make_tuple
#define pub push_back
#define puf push_front
#define pob pop_back
#define pof pop_front
#define fir first
#define sec second
#define res resize
#define ins insert
#define era erase
#define RE return 0
//ios::sync_with_stdio(false);
//std::cin.tie(0);
//<< setprecision(20)
const int mod=1e9+7;
const llint big=1e15+100;
const long double pai=3.141592653589793238462643383279502884197;
const long double ena=2.71828182845904523536;
const long double eps=1e-7;
template <class T,class U>void mineq(T& a,U b){if(a>b){a=b;}}
template <class T,class U>void maxeq(T& a,U b){if(a<b){a=b;}}
template <class T> void soun(T& ar)
{sort(ar.begin(),ar.end());ar.erase(unique(ar.begin(),ar.end()),ar.end());}
int main(void){
	//行列累乗
	array<array<llint,27>,27> gyo={0};
	//1
	//3
	//9
	//なし=0
	//あり=1
	//はみ出し=2
	//sta=13
	int i,j,k;
	for(i=0;i<27;i++){
		int U,M,D;
		U=i/9;
		M=(i/3)%3;
		D=i%3;
		for(j=0;j<27;j++){//次
			int ju=j/9,jm=(j/3)%3,jd=j%3;
			if(U==2&&ju!=1){continue;}//前から来たのだから...
			if(M==2&&jm!=1){continue;}
			if(D==2&&jd!=1){continue;}
			if(U==0&&ju==0){continue;}//まだおけるだろ～
			if(M==0&&jm==0){continue;}
			if(D==0&&jd==0){continue;}
			int sumd=0;
			if(U!=2&&ju==1){sumd+=1;}
			if(M!=2&&jm==1){sumd+=2;}
			if(D!=2&&jd==1){sumd+=4;}
			if(sumd%3!=0){continue;}
			if(jm==0&&(ju==0||jd==0)){continue;}//縦にまだおける
			gyo[i][j]=1;
			
		}
		
	}
	array<array<llint,27>,27> gen={0};
	gen[13][13]=1;//last gen[4,10,12,13] こたえ
	llint n;cin>>n;
	for(int bi=0;bi<60;bi++){
		if((n&((llint)1<<bi))!=0){
			array<array<llint,27>,27> iti={0};
			for(i=0;i<27;i++){
				for(j=0;j<27;j++){
					for(k=0;k<27;k++){
						iti[i][k]+=gen[i][j]*gyo[j][k];
						iti[i][k]%=mod;
					}
				}
			}
			gen=iti;
		}
		array<array<llint,27>,27> itii={0};
		for(i=0;i<27;i++){
			for(j=0;j<27;j++){
				
				for(k=0;k<27;k++){
					itii[i][k]+=gyo[i][j]*gyo[j][k];
					itii[i][k]%=mod;
				}
			}
			
		}
		gyo=itii;
	}
	llint ans=0;
	for(i=0;i<27;i++){
		if(i>=18||i%3==2||(i/3)%3==2){continue;}
		ans+=gen[13][i];
	}
	ans%=mod;
	cout<<ans<<endl;
}