RosettaCodeData/Task/Fibonacci-sequence/Brat/fibonacci-sequence-2.brat

fib_aux = { x, next, result |
        true? x == 0,
                result,
                { fib_aux x - 1, next + result, next }
}

fibonacci = { x |
  fib_aux x, 1, 0
}