#include <cstdio>

using namespace std;
int n;
long long a[4][4],s[4][4];
void inmultire (long long b[4][4], long long  c[4][4])
{
    int i,j,k;
    long long d[4][4];
    for (i=1;i<=2;i++)
        for (j=1;j<=2;j++)
        {
            d[i][j]=0LL;
            for (k=1;k<=2;k++)
                d[i][j]=(0LL+d[i][j]+1LL*b[i][k]*c[k][j])%666013;
        }
    for (i=1;i<=2;i++)
        for (j=1;j<=2;j++)
            b[i][j]=d[i][j];
}
int main()
{
    freopen ("kfib.in","r",stdin);
    freopen ("kfib.out","w",stdout);
    scanf ("%d", &n);
    a[1][2]=1;
    a[2][1]=1;
    a[2][2]=1;
    s[1][1]=0;
    s[1][2]=1;
    n--;
    while (n>0)
    {
        if (n%2==1)
            inmultire(s,a);
        inmultire(a,a);
        n/=2;
    }
    printf ("%d", s[1][2]);
    return 0;
}