Datenstruktur

newtype Labeling knoten = Labeling
    ( FiniteMap knoten Integer
    ) deriving (Show, Read)