ludus/hello.ld

fn fib {
	(0) -> 1
	(1) -> 1
	(n) -> add (
		fib (sub (n, 1)), 
		fib (sub (n, 2)))
}

fn fact {
	(n) -> fact (n, 1)
	(1, acc) -> acc
	(n, acc) -> fact (sub (n, 1), mult (n, acc))
}

ns Recursive {
	fact
	fib
}

:factl (Recursive) (6)