sig
  val pretty :
    'a Pretty_utils.formatter -> 'a Layout.range Pretty_utils.formatter
  val overlap :
    'a Pretty_utils.formatter ->
    'a Layout.merger -> 'a Layout.range -> 'a Layout.range -> 'a Layout.range
  val included : int -> int -> 'a Layout.range -> bool
end