diff --git a/readme.md b/readme.md
index d874b688b..0f7bc958b 100644
--- a/readme.md
+++ b/readme.md
@@ -993,6 +993,7 @@ Make sure to see [contributing.md](/contributing.md) for instructions on contrib
 * [XUL](x/XUL.xul)
 * [Y](y/Y.y)
 * [YAML](y/YAML.yaml)
+* [YAP](y/YAP.yap)
 * [YASKC](y/YASKC.yaskc)
 * [Yoix](y/Yoix.yx)
 * [YoLang](y/YoLang.yo)
diff --git a/y/YAP.yap b/y/YAP.yap
new file mode 100644
index 000000000..8e8966043
--- /dev/null
+++ b/y/YAP.yap
@@ -0,0 +1,4 @@
+:- initialization(main).
+
+main :-
+    write('Hello World'), nl.
\ No newline at end of file