let rec add ("nom",accompte) liste =
  match (("nom",accompte),liste) with
      ((_,_),[]) -> ("nom",accompte)::l
    | (("nom",accompte), ("name",acc)::l) ->
      match compare (String.lowercase("nom")) (String.lowercase("name")) with
	  0 -> l
	| (-1) -> ("name",acc)::(add ("nom",accompte) l)
	| 1 -> ("nom",accompte)::("name",acc)::l;;