Datentyp für binäre Bäume
data Tree a = Leaf | Node { key :: a , left :: Tree a , right :: Tree a }
deriving Show