sig
  val empty : Layout.chunks
  val singleton : int -> Layout.chunks
  val union : Layout.chunks -> Layout.chunks -> Layout.chunks
  val disjoint : Layout.chunks -> Layout.chunks -> bool
  val union_map : ('-> Layout.chunks) -> 'a list -> Layout.chunks
  val mem : int -> Layout.chunks -> bool
  val pretty :
    int Pretty_utils.formatter -> Layout.chunks Pretty_utils.formatter
end