sig
  val pp_list :
    sep:(unit, Stdlib.Format.formatter, unit) Stdlib.format ->
    (Stdlib.Format.formatter -> 'a -> unit) ->
    Stdlib.Format.formatter -> 'a list -> unit
  val pp_array :
    sep:(unit, Stdlib.Format.formatter, unit) Stdlib.format ->
    (Stdlib.Format.formatter -> 'a -> unit) ->
    Stdlib.Format.formatter -> 'a array -> unit
  val pp_matrix :
    begl:(unit, Stdlib.Format.formatter, unit) Stdlib.format ->
    endl:(unit, Stdlib.Format.formatter, unit) Stdlib.format ->
    sepl:(unit, Stdlib.Format.formatter, unit) Stdlib.format ->
    sepc:(unit, Stdlib.Format.formatter, unit) Stdlib.format ->
    (Stdlib.Format.formatter -> 'a -> unit) ->
    Stdlib.Format.formatter -> 'a array array -> unit
  val itv_float_of_q : Q.t -> float * float
  val float_of_q : Q.t -> float
  val setround_tonearest : unit -> unit
  val profile : (unit -> 'a) -> 'a * float
  val map : ('a -> 'b) -> 'a list -> 'b list
end