procedure fib(n)
   (le(n, 1)) return(n)
   return(fib(n - 1) + fib(n - 2))
end

procedure main()
   i = 0
loop output = fib(i)
   i = i + 1
   (lt(i, 10)) goto(loop)
end