let is_uppercase (s: string): bool =
  String.for_all (fun c -> not(c >= 'a' && c <= 'z')) s;;