let handler_tree ?mods ?mask key v =
  { hst_spec = keyhit_spec ?mods ?mask key ;
    hst_v = v ;
  }