1 files changed, 15 insertions, 0 deletions
diff --git a/match.lisp b/match.lisp
new file mode 100644
index 0000000..84503e0
--- /dev/null
+++ b/match.lisp
@@ -0,0 +1,15 @@
+(define f (x)
+	(match x
+		((1 2 3) "1-2-3")
+		((1) "just 1")
+		((1 ...) "1 something")
+		((n ...) "number something")
+		('v "something quoted")
+		"dunno"))
+
+(print (f '(1 2 3)))
+(print (f '(1)))
+(print (f '(1 2 3 4 5)))
+(print (f '(2 3 4 5)))
+(print (f ''"kaas"))
+(print (f "kaas"))