gemstone/examples/lib_fibonacci.txt

fun fib(in int: x, out int: c) {

    int: i = 0
    int: k = 1
    int: p = 1

    while x < i {
        int: t = k
        k = k + p
        p = t

        i = i + 1
    }

    c = k
}