fibonacci = (lambda n, first=0, second=1:
    [] if n == 0 else
    [first] + fibonacci(n - 1, second, first + second))
print(fibonacci(10))fib <- function(n) {
 if (n <= 2) 1
 else fib(n - 1) + fib(n - 2)
}