(var:int i 0)
(while (< i 10000)
  (var:int a 0)
  (var:int b 1)
  (var:int c)
  (var:int n 0)

  (while (< n 40)
    (set c b)
    (set b (+ a b))
    (set a c)
    (set n (+ n 1))
  )
  (set i (+ i 1))
)