diff --git a/b/BCPL.bcl b/b/BCPL.bcl
new file mode 100644
index 00000000..938bf03c
--- /dev/null
+++ b/b/BCPL.bcl
@@ -0,0 +1,6 @@
+GET "LIBHDR"
+
+LET START() BE
+$(
+  WRITES("Hello, world!*N")
+$)