open System
open System.Text.RegularExpressions

let isUppercase (input:string):bool =
     Regex.Match(input, "(?=^[^a-z]*$).*[A-Z]").Success