method private params_for_leaf leaf =
      let param = C.string
          ~f: (fun s -> leaf.leaf <- s)
          Rep_messages.fun_unit leaf.leaf
      in
      [param]