let combinaisons k l =
  let l_triee = List.sort compare l in
    let rec combinaisons_aux k l =
      match (l,k) with
      | ([], 0) -> top
      | ([], _) -> bot
      | (t::q,k) -> node((combinaisons_aux k q), t, (combinaisons_aux (k-1) q))
    in combinaisons_aux k l_triee
;;