#include <fstream>
#include <cstring>
using namespace std;
typedef unsigned long long t;
ifstream in("kfib.in");
ofstream out("kfib.out");
t n,x,MAT[3][3]={{0,1},{1,1}},SOL[3][3];
void mult(t A[][3],t B[][3],t C[][3]) {
    int i, j, k;
    for (i = 0; i < 2; i++)
        for (j = 0; j < 2; j++)
            for (k = 0; k < 2; k++)
                C[i][j] = (C[i][j] + 1LL * A[i][k] * B[k][j]) % 666013;
}
void f(t P,t M[][3]) {
    t C[3][3], AUX[3][3], i;
    memcpy(C, MAT, sizeof(MAT));
    M[0][0] = M[1][1] = 1;
    for (i = 0; (1 << i) <= P; i++) {
        if (P & (1 << i))
            memset(AUX, 0, sizeof(AUX)),mult(M, C, AUX),memcpy(M, AUX, sizeof(AUX));
        memset(AUX, 0, sizeof(AUX)),mult(C, C, AUX),memcpy(C, AUX, sizeof(C));
    }
}
int main()
{
    in>>n;
    f(n-1,SOL);
    out<<SOL[1][1];
    return 0;
}