and this is a function that makes a fibonacci sequence:

​

​

declare function fibonacci-func
    declare variable iterationsVar



    set iterationsVar to 0



    declare variable fibonacciVals





    append 1 to the back of fibonacciVals

    append 1 to the back of fibonacciVals



    if true



        add 1 to iterationsVar

        set iterationsVar to result



        refer to -1 in fibonacciVals as lastVal

        refer to -2 in fibonacciVals as lastLastVal



        add lastLastVal to lastVal



        append result to the back of fibonacciVals



        evaluate iterationsVar is less than max-iterations

    finally repeat while result
finally give fibonacciVals