diff --git a/README.md b/README.md
index bacd729..a937e73 100644
--- a/README.md
+++ b/README.md
@@ -11,6 +11,7 @@ uwu in every programming language in the world
 - [C#](uwu.cs)
 - [C++](uwu.cpp)
 - [COBOL](uwu.cbl)
+ - [GnuCOBOL](uwu.gcbl)
 - [D](uwu.d)
 - [Elixir](uwu.ex)
 - [Emojicode](uwu.emojic)
diff --git a/uwu.gcbl b/uwu.gcbl
new file mode 100644
index 0000000..e732783
--- /dev/null
+++ b/uwu.gcbl
@@ -0,0 +1,6 @@
+000100 id division.
+000200 program-id. uwu.
+000300 procedure division.
+000400 display "uwu" end-display
+000500 goback.
+