#include<iostream>
using namespace std;
long fib(long N,int mod)
{
	long E[2][2]={{1,0},{0,1}},A[2][2]={{1,1},{1,0}},tmp[2][2];
	while(N)
	{
		if(N&1)
		{
			for(int i=0;i<2;i++)for(int j=0;j<2;j++)
			{
				tmp[i][j]=0;
				for(int k=0;k<2;k++)tmp[i][j]+=A[i][k]*E[k][j];
			}
			for(int i=0;i<2;i++)for(int j=0;j<2;j++)E[i][j]=tmp[i][j]%mod;
		}
		N>>=1;
		for(int i=0;i<2;i++)for(int j=0;j<2;j++)
		{
			tmp[i][j]=0;
			for(int k=0;k<2;k++)tmp[i][j]+=A[i][k]*A[k][j];
		}
		for(int i=0;i<2;i++)for(int j=0;j<2;j++)A[i][j]=tmp[i][j]%mod;
	}
	return E[0][1];
}
main()
{
	long N;
	cin>>N;
	cout<<fib(fib(N,2000000016),1e9+7)<<endl;
}