let rec  add (client,acompte1) liste =
  match liste  with
      []                                      -> (client,acompte1) :: []
    | (nom,acompte2)::list when client = nom  -> failwith "ce compte existe deja"
    | (nom,acompte2)::list when client > nom  -> add (client,acompte1) list
    | (nom,acompte2)::list                    -> (client,acompte1)::(nom,acompte2)::list;;