sig   type t = (int32, Bigarray.int32_elt, Bigarray.c_layout) Bigarray.Array1.t   exception Malformed_code   val validate : CamomileLibrary.UCS4.t -> unit   val get : CamomileLibrary.UCS4.t -> int -> CamomileLibrary.UChar.t   val init :     int -> (int -> CamomileLibrary.UChar.t) -> CamomileLibrary.UCS4.t   val length : CamomileLibrary.UCS4.t -> int   type index = int   val nth : CamomileLibrary.UCS4.t -> int -> CamomileLibrary.UCS4.index   val first : CamomileLibrary.UCS4.t -> CamomileLibrary.UCS4.index   val last : CamomileLibrary.UCS4.t -> CamomileLibrary.UCS4.index   val look :     CamomileLibrary.UCS4.t ->     CamomileLibrary.UCS4.index -> CamomileLibrary.UChar.t   val out_of_range :     CamomileLibrary.UCS4.t -> CamomileLibrary.UCS4.index -> bool   val compare_index :     CamomileLibrary.UCS4.t ->     CamomileLibrary.UCS4.index -> CamomileLibrary.UCS4.index -> int   val next :     CamomileLibrary.UCS4.t ->     CamomileLibrary.UCS4.index -> CamomileLibrary.UCS4.index   val prev :     CamomileLibrary.UCS4.t ->     CamomileLibrary.UCS4.index -> CamomileLibrary.UCS4.index   val move :     CamomileLibrary.UCS4.t ->     CamomileLibrary.UCS4.index -> int -> CamomileLibrary.UCS4.index   val iter :     (CamomileLibrary.UChar.t -> unit) -> CamomileLibrary.UCS4.t -> unit   val compare : CamomileLibrary.UCS4.t -> CamomileLibrary.UCS4.t -> int   module Buf :     sig       type buf       val create : int -> CamomileLibrary.UCS4.Buf.buf       val contents : CamomileLibrary.UCS4.Buf.buf -> CamomileLibrary.UCS4.t       val clear : CamomileLibrary.UCS4.Buf.buf -> unit       val reset : CamomileLibrary.UCS4.Buf.buf -> unit       val add_char :         CamomileLibrary.UCS4.Buf.buf -> CamomileLibrary.UChar.t -> unit       val add_string :         CamomileLibrary.UCS4.Buf.buf -> CamomileLibrary.UCS4.t -> unit       val add_buffer :         CamomileLibrary.UCS4.Buf.buf -> CamomileLibrary.UCS4.Buf.buf -> unit     end end