Funcall.Private
val apply : 'a t -> 'a -> Value.t list -> on_parse_error:(exn -> Value.t) -> Value.t
val wrap_unrolled : 'a t -> Value.t -> 'a