data Tree = Leaf {} | Branch { left :: Tree , right :: Tree }
Übung: Objekte dieses Typs erzeugen
(benannte und positionelle Notation der Konstruktoren)