(defparameter EXT::UCS4BE ':UCS-4BE)