let retourner_donnees (): smatchs_coupe_monde list =
       let li = SMatchsMap.bindings !m in
       let lp = uniques(map (fun (k,i) -> fst k) li) in
       map (fun p -> SMatchsMap.fold (fun _ i acc -> i::acc)
           (SMatchsMap.filter (fun (x,y) ind -> x = p) !m) []) lp