sig
  val signal : int Fmt.t
  val pair : 'Fmt.t -> 'Fmt.t -> ('a * 'b) Fmt.t
  val option : 'Fmt.t -> 'a option Fmt.t
  val result : ok:'Fmt.t -> error:'Fmt.t -> ('a, 'b) Result.result Fmt.t
  val list : 'Fmt.t -> 'a list Fmt.t
  val array : 'Fmt.t -> 'a array Fmt.t
  val hashtbl : 'Fmt.t -> 'Fmt.t -> ('a, 'b) Hashtbl.t Fmt.t
  val queue : 'Fmt.t -> 'Queue.t Fmt.t
  val stack : 'Fmt.t -> 'Stack.t Fmt.t
  val iter : (('-> unit) -> '-> unit) -> 'Fmt.t -> 'Fmt.t -> 'Fmt.t
  val iter_bindings :
    (('-> '-> unit) -> '-> unit) ->
    'Fmt.t -> 'Fmt.t -> 'Fmt.t -> 'Fmt.t
end