diff --git a/0004-algebraic-data-types/README.md b/0004-algebraic-data-types/README.md
new file mode 100644
index 00000000..1d5ccaac
--- /dev/null
+++ b/0004-algebraic-data-types/README.md
@@ -0,0 +1,4 @@
+# Point-Free Episode 4: Algebraic Data Types
+
+This directory contains code from Point-Free Episode 4:
+[Algebraic Data Types](https://www.pointfree.co/episodes/ep4-algebraic-data-types)