var f,g:text;
    k:longint;
function fib(n:longint):longint;
begin
        if n>1 then fib:=fib(n-1)+fib(n-2)
                else fib:=1;
end;

begin
        assign(f,'kfib.in');
        reset(f);
        read(f,k);
        close(f);

        assign(g,'kfib.out');
        rewrite(g);
        write(g,fib(k) mod 666013);
        close(g);
end.