onch

let a30 = Vide;;

let a31 = Noeud(15, Noir, Vide, Vide);;

let a32 = Noeud(14, Noir,
                Noeud(13, Rouge, Vide, Vide),
                Noeud(15, Rouge, Vide, Vide));;

let a33 = Noeud(14, Noir,
                Noeud(13, Noir, Vide, Vide),
                Noeud(15, Noir, Vide, Vide));;

let a34 = Noeud(14, Noir,
                Noeud(12, Rouge,
                        Noeud(11, Noir, Vide, Vide),
                        Noeud(13, Noir, Vide, Vide)),
                Noeud(15, Noir, Vide, Vide));;

let a35 = Noeud(14, Noir,
                Noeud(12, Noir,
                        Noeud(11, Rouge, Vide, Vide),
                        Noeud(13, Rouge, Vide, Vide)),
                Noeud(15, Noir, Vide, Vide));;

let a36 = Noeud(14, Noir,
                Noeud(12, Noir, Vide,
                        Noeud(13, Rouge, Vide, Vide)),
                Noeud(15, Noir, Vide, Vide));;

let a37 = Noeud(14, Noir,
                Noeud(12, Noir,
                        Noeud(11, Rouge, Vide, Vide), Vide),
                Noeud(15, Noir, Vide, Vide));;

let a38 = Noeud(13, Noir,
                Noeud(12, Noir,
                        Noeud(11, Rouge, Vide, Vide), Vide),
                Noeud(15, Noir,
                        Noeud(14, Rouge, Vide, Vide), Vide));;

let a39 = Noeud(13, Noir,
                Noeud(11, Noir,
                        Noeud(10, Noir, Vide, Vide),
                        Noeud(12, Noir, Vide, Vide)),
                Noeud(15, Noir,
                        Noeud(14, Noir, Vide, Vide),
                        Noeud(16, Noir, Vide, Vide)));;

let a40 = Noeud(16, Noir,
                Noeud(15, Noir, Vide, Vide),
                Noeud(17, Noir, Vide, Vide));;

let a41 = Noeud(16, Noir,
                Noeud(15, Noir, Vide, Vide),
                Noeud(19, Rouge,
                        Noeud(18, Noir, Vide, Vide),
                        Noeud(20, Noir, Vide, Vide)));;

let a42 = Noeud(16, Noir,
                Noeud(15, Noir, Vide, Vide),
                Noeud(19, Noir,
                        Noeud(18, Rouge, Vide, Vide),
                        Noeud(20, Rouge, Vide, Vide)));;

let a43 = Noeud(16, Noir,
                Noeud(15, Noir, Vide, Vide),
                Noeud(19, Noir,
                        Noeud(18, Rouge, Vide, Vide), Vide));;

let a44 = Noeud(16, Noir,
                Noeud(15, Noir, Vide, Vide),
                Noeud(19, Noir, Vide,
                        Noeud(20, Rouge, Vide, Vide)));;

let a45 = Noeud(16, Noir,
                Noeud(15, Noir,
                        Noeud(14, Rouge, Vide, Vide), Vide),
                Noeud(19, Noir,
                        Noeud(18, Rouge, Vide, Vide),
                        Noeud(20, Rouge, Vide, Vide)));;

let a46 = Noeud(16, Noir,
                Noeud(15, Noir,
                        Noeud(14, Rouge, Vide, Vide), Vide),
                Noeud(19, Noir,
                        Noeud(18, Rouge, Vide, Vide), Vide));;

let a47 = Noeud(16, Noir,
                Noeud(15, Noir,
                        Noeud(14, Rouge, Vide, Vide), Vide),
                Noeud(19, Noir, Vide,
                        Noeud(20, Rouge, Vide, Vide)));;