1 files changed, 38 insertions, 0 deletions
diff --git a/src/example/test1.lux b/src/example/test1.lux
new file mode 100644
index 000000000..8e740eabd
--- /dev/null
+++ b/src/example/test1.lux
@@ -0,0 +1,38 @@
+
+(* 5 6)
+
+## My first function definition!
+(def (repeat n val)
+  (if (<=' n 0)
+    (#Nil [])
+    (#Cons [val (repeat (-' n 1) val)])))
+
+## Testing one, two, three...
+(repeat 5 5)
+
+(def (fold f init inputs)
+  (case inputs
+    #( Outer comment #( Inner comment )# )#
+    (#Nil [])            init
+    (#Cons [head tail]) (fold f (f init head) tail)))
+
+## It's alive!
+(fold * 1 (repeat 5 5))
+
+3.14
+
+(def pi 3.14)
+
+pi
+
+(def (foo x)
+  (let [y (*' 2 x)]
+    (+' x y)))
+
+(foo 10)
+
+(def bar {#x 10 #y 20})
+bar
+(get@ #x bar)
+(set@ #z 30 bar)
+(remove@ #y bar)