(def caesar (char) (coerce (+ (coerce char 'int) 3) 'char)) #<procedure: caesar> (map caesar "caesar") "fdhvdu"