let add ctx k d = let d = try let old_d = find ctx k in Data.merge old_d d with Not_found -> d in Inthash.replace ctx k d