(def char-a \A)
(def int-value (int char-a))
; int-value is 65

(def char-b (char (inc int-value)))
; char-b is \B

(def codes (mapv int "ABC"))
; codes is [65 66 67]

(def back (apply str (map char codes)))
; back is "ABC"

(println "int-value is" int-value)
(prn char-b)
(prn codes)
(prn back)