sig
  val pretty :
    ?title:(Stdlib.Format.formatter -> unit) ->
    'a Pretty_utils.formatter -> 'a Layout.overlay Pretty_utils.formatter
  val merge :
    'a Pretty_utils.formatter ->
    'a Layout.merger ->
    'a Layout.overlay -> 'a Layout.overlay -> 'a Layout.overlay
  val once : 'a -> 'a Layout.overlay -> bool
end