function  fibonacci( n as long ) as long
  dim f1
  dim f2	
  if  n < 2 then return n
  f1 = fibonacci(n - 2)
  f2 = fibonacci(n - 1)
  return  f1 + f2

end function

sub main()
  print  fibonacci(40 )
end sub