play around

hello.ld

@@ -1,5 +1,20 @@
-import "foo.ld" as Foo
+fn fib {
+	(0) -> 1
+	(1) -> 1
+	(n) -> add (
+		fib (sub (n, 1)), 
+		fib (sub (n, 2)))
+}
 
-do #{:foo "bar"
+fn fact {
-	:bar (2, 3, :quux)
+	(n) -> fact (n, 1)
-	:baz [12, 34]} > show > print
+	(1, acc) -> acc
+	(n, acc) -> fact (sub (n, 1), mult (n, acc))
+}
+
+ns Recursive {
+	fact
+	fib
+}
+
+:factl (Recursive) (6)