1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
|
tree = Node (Content "Startseite" [])
(Node (Content "Tier" [])
-- (Leaf (Content "Katze" ["lolcat.jpg"]))
-- (Leaf (Content "Blattlaus" [])))
(leaf (Content "Katze" ["lolcat.jpg"]))
(leaf (Content "Blattlaus" [])))
(Node (Content "Blume" ["tulpe.png", "lilie.jpg"])
-- (Leaf (Content "Rose" []))
(leaf (Content "Rose" []))
Nil) |