RosettaCodeData/Task/Fibonacci-sequence/Wrapl/fibonacci-sequence-4.wrapl

TO fib(n @ Integer.T) (
    VAR seq <- [0, 1];
    EVERY 3:to(n) DO seq:put(seq:pop + seq[1]);
    RET seq[-1];
);