(def c \a)

(def is-upper (Character/isUpperCase c))
; is-upper is false

(def is-lower (Character/isLowerCase c))
; is-lower is true

(def upper (Character/toUpperCase c))
; upper is \A

(println "is-upper is" is-upper)
(println "is-lower is" is-lower)
(println "upper is" upper)
(println "upper is upper case:" (Character/isUpperCase upper))