Tezos_protocol_environment_alpha.FormatSourceval pp_print_result :
ok:(formatter -> 'a -> unit) ->
error:(formatter -> 'e -> unit) ->
formatter ->
('a, 'e) Pervasives.result ->
unitval kfprintf :
(formatter -> 'a) ->
formatter ->
('b, formatter, unit, 'a) Pervasives.format4 ->
'bval kdprintf :
((formatter -> unit) -> 'a) ->
('b, formatter, unit, 'a) Pervasives.format4 ->
'bval ikfprintf :
(formatter -> 'a) ->
formatter ->
('b, formatter, unit, 'a) Pervasives.format4 ->
'b