Weitere Beispiele für Folds

data Tree a 
  = Leaf { key :: a }
  | Branch { left :: Tree a, right :: Tree a }

fold :: ...

• Anzahl der Blätter
• Anzahl der Verzweigungsknoten
• Summe der Schlüssel
• die Tiefe des Baumes
• der größte Schlüssel