method private params_for_mark mark =
      let param_id = C.string
          ~f: (fun s -> mark.mark_id <- s)
          Rep_messages.ocaml_id mark.mark_id
      in
      let param_name = C.string
          ~f: (fun s -> mark.mark_name <- s)
          Rep_messages.name mark.mark_name
      in
      [param_id ; param_name]