sig
  type 'a t = 'a option
  val print :
    (Stdlib.Format.formatter -> 'a -> unit) ->
    Stdlib.Format.formatter -> 'a Misc.Stdlib.Option.t -> unit
end