app [exposed1, exposed2, add1, sub1] { pf: platform "platform/main.roc" }

exposed1 = \n -> fib n 0 1

fib = \n, a, b ->
    if n == 0 then
        a
    else
        fib (n - 1) b (a + b)

exposed2 = \n -> fact n 1

fact = \n, x ->
    if n == 0 then
        x
    else
        fact (n - 1) (n * x)

add1 = \n -> n + 1
sub1 = \n -> n - 1