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

DEF fib() (
    VAR seq <- [0, 1]; EVERY SUSP seq:values;
    REP SUSP seq:put(seq:pop + seq[1])[-1];
);