(ModelApi.OUTPUT_MODEL) = struct

    let output chan t = Model.output chan (B.string_for_output t)

  end