datatype Farbe = Gold | Silber | Blau;

datatype Dekor = Kerze of bool | Kugel of Farbe | Stern of int;


(* b *)
val einkauf = [Kerze(false), Kugel(Gold), Kugel(Blau), Stern(4),
               Kerze(false), Stern(8), Stern(6), Stern(12),
               Kerze(false), Kugel(Gold), Kugel(Blau),
               Kerze(false), Kugel(Silber), Kerze(false), Stern(16)];

(* c *)
datatype Schmuck = Leer | schmuck of Dekor;

datatype Weihnachtsbaum = Blt of Schmuck
                        | Knt of Weihnachtsbaum * Schmuck * Weihnachtsbaum;