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