diff --git a/README.md b/README.md
index 61344c1..43aea29 100644
--- a/README.md
+++ b/README.md
@@ -11,6 +11,7 @@ uwu in every programming language in the world
 - [Bourne shell (sh)](uwu.sh)
 - [B](uwu.b)
 - [bc](uwu.bc)
+- [BCPL](uwu.bcpl)
 - [C](uwu.c)
 - [C#](uwu.cs)
 - [C++](uwu.cpp)
diff --git a/uwu.bcpl b/uwu.bcpl
new file mode 100644
index 0000000..d172fb6
--- /dev/null
+++ b/uwu.bcpl
@@ -0,0 +1,6 @@
+get "libhdr"
+
+let start() be
+$(
+  writes("uwu*n")
+$)