Datentypen

data Graph a  = Graph
              { knoten    :: Set a
              , kanten    :: Set (Kante a)
              }

data Kante a  = Kante
              { von       :: a
              , nach      :: a
              }