diff --git a/examples/map.lamb b/examples/map.lamb
new file mode 100644
index 0000000..08f3132
--- /dev/null
+++ b/examples/map.lamb
@@ -0,0 +1,6 @@
+map(f, []) -> [].
+map(f, x::xs) -> f(x) :: map(f, xs).
+
+double(y) -> y*2.
+
+print(map(double, [1, 2, 3])).
\ No newline at end of file