let ajoute_et_pas_mem (d: dico) (s:int) (m:motif) =
    let dedans = Hashtbl.mem d m in
    if not dedans then Hashtbl.add d m s ;
    dedans
;;