fibi is op n {
  if n<2 then
    n
  else
    x1:=0; x2:=1;
    for i with tell (n - 1) do
      x:=x1+x2;
      x1:=x2;
      x2:=x;
    endfor;
    x2
  endif};