diff --git a/naming/keywords.elm b/naming/keywords.elm
new file mode 100644
index 0000000..bd945c8
--- /dev/null
+++ b/naming/keywords.elm
@@ -0,0 +1,7 @@
+import Html exposing (text)
+
+main =
+  let (x, y, _) = List.foldL (\elem (sum, diff, mult) ->
+      (sum + elem, elem - diff, mult * elem)
+    ) (0, 0, 0) [1, 2, 3, 4, 5] in
+  text ("Hello, World!" ++ toString x)