var f,g:text; k,m:int64; r,t:real;
Function Putere(a:real; b:int64):real;
var i:integer; s:real;
begin
s:=1;
for i:=1 to b do s:=s*a;
Putere:=s;
end;
begin
assign(f,'kfib.in');
reset(f);
assign(g,'kfib.out');
rewrite(g);
read(f, k);
r:=Putere((1+sqrt(5))/2,k);
t:=Putere((1-sqrt(5))/2,k);
M:=trunc(1/sqrt(5)*r-1/sqrt(5)*t);
write(g, M mod 660634);
close(f); close(g);
end.