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