diff --git a/codewars/ocaml/is-the-string-uppercase/main.ml b/codewars/ocaml/is-the-string-uppercase/main.ml
new file mode 100644
index 0000000..eeaef81
--- /dev/null
+++ b/codewars/ocaml/is-the-string-uppercase/main.ml
@@ -0,0 +1,2 @@
+let is_uppercase (s: string): bool =
+  String.for_all (fun c -> not(c >= 'a' && c <= 'z')) s;;