1 files changed, 8 insertions, 0 deletions
diff --git a/algebraic-structs.alternative.list.base.scm b/algebraic-structs.alternative.list.base.scm
new file mode 100644
index 0000000..73f3c84
--- /dev/null
+++ b/algebraic-structs.alternative.list.base.scm
@@ -0,0 +1,8 @@
+(module (algebraic-structs alternative list base) (pure map map2 alt empty)
+  (import (except scheme map apply)
+          (algebraic-structs applicative list))
+
+  (define (alt x y)
+    (append x y))
+
+  (define empty '()))