Graph {knoten = mkSet "ABCD", kanten = mkSet [Kante {von = 'A', nach = 'B'}, Kante {von = 'B', nach = 'C'}, Kante {von = 'C', nach = 'D'}]}