let concat : t list -> t =       fun l ->       fun def ->         List.find_map l ~f:(fun kit -> kit def)