#include<iostream>
#include<cstdio>
#define ll long long
using namespace std;
ll n;
ll sum=1;
const ll p=1e9+7;
ll qpow(ll a,int n){
    ll res=a,sum=1;
    while(n){
        if(n&1)
            sum=(sum*res)%p;
        res=(res*res)%p;
        n>>=1;
    }
    return sum;
}
int main(){
    freopen("magic.in","r",stdin);
    freopen("magic.out","w",stdout);
    scanf("%lld",&n);
    ll s=0;
    for(int i=1;i<=1000;i++){
        s=(s+qpow(3,i))%p;
    }
    int k=n%1000;
    for(int i=1;i<=k;i++)
        sum=(sum+qpow(3,i))%p;
    s=(s*qpow(3,k))%p;                        
    n-=k;
    while(n){
        sum=(sum+s)%p;
        s=(s*qpow(3,1000))%p;
        n-=1000;
    }
    printf("%lld",sum);
    return 0;
}