diff --git a/string.rkt b/string.rkt
index 4346a45..15ef02d 100644
--- a/string.rkt
+++ b/string.rkt
@@ -11,4 +11,8 @@
 (define+provide/contract (ends-with? str ender)
   (coerce/string? coerce/string? . -> . coerce/boolean?)
   (and (<= (string-length ender) (string-length str)) 
-       (equal? (substring str (- (string-length str) (string-length ender)) (string-length str)) ender)))
\ No newline at end of file
+       (equal? (substring str (- (string-length str) (string-length ender)) (string-length str)) ender)))
+
+(define+provide/contract (capitalized? str)
+  (coerce/string? . -> . coerce/boolean?)
+  (char-upper-case? (car (string->list str))))