method private params_for_list list =
      let param_f = C.string
          ~f: (fun s -> list.f <- s)
          Rep_messages.fun_unit list.f
      in
      let param_var = C.string
          ~f: (fun s -> list.var <- s)
          Rep_messages.ocaml_id list.var
      in
      [param_var ; param_f]