var a:array[0..2000]of qword;
    n,i:longint;
begin
a[0]:=0;
a[1]:=1;
for i:=2 to 75 do a[i]:=a[i-1]+a[i-2];
while not eof do
  begin
  readln(n);
  writeln('The Fibonacci number for ',n,' is ',a[n]);
  end;
end.