(ModelOUTPUT_MODEL) = struct     let (>>=) = Model.bind     let output chan t =       Model.output chan (to_native_string t)   end