diff --git a/README.md b/README.md
index 35d638e..a937e73 100644
--- a/README.md
+++ b/README.md
@@ -10,10 +10,13 @@ uwu in every programming language in the world
 - [C](uwu.c)
 - [C#](uwu.cs)
 - [C++](uwu.cpp)
+- [COBOL](uwu.cbl)
+ - [GnuCOBOL](uwu.gcbl)
 - [D](uwu.d)
 - [Elixir](uwu.ex)
 - [Emojicode](uwu.emojic)
 - [F#](uwu.fs)
+- [Fortran](uwu.f)
 - [Go](uwu.go)
 - [Haskell](uwu.hs)
 - [Java](uwu.java)
diff --git a/uwu.cbl b/uwu.cbl
new file mode 100644
index 0000000..414c9fc
--- /dev/null
+++ b/uwu.cbl
@@ -0,0 +1,5 @@
+IDENTIFICATION DIVISION.
+PROGRAM-ID. UWU.
+PROCEDURE DIVISION.
+DISPLAY 'uwu'.
+STOP RUN.
diff --git a/uwu.f b/uwu.f
new file mode 100644
index 0000000..c312e57
--- /dev/null
+++ b/uwu.f
@@ -0,0 +1,3 @@
+program uwu
+  print *, "uwu"
+end program
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.
+