let
melange_liste l = auxi_melange_liste ~lnm:l ~lm:[]