function fiboi(integer n)
integer f0=0, f1=1, f
  if n<2 then return n end if
  for i=2 to n do
    f=f0+f1
    f0=f1
    f1=f
  end for
  return f
end function