(
Model
:
Api
.
OUTPUT_MODEL
) =
struct
let
output chan t =
Model
.output chan (
B
.string_for_output t)
end