proc fib_generator()
  let a = 0
  let b = 1
  loop
    yield b
    let c = (a + b)
    let a = b
    let b = c
  endloop
endproc

let fib_gen = fib_generator()
for i = 1 to 100
  println(next(fib_gen))
endfor