open System
open System.Text.RegularExpressions

let isUppercase (input:string):bool =
     Regex.Match(input, "[A-Z]").Success
     && not(Regex.Match(input, "[a-z]").Success)