emptyLabeling :: Labeling knoten
unitLabeling :: (knoten, Integer) -> Labeling knoten
mkLabeling :: Ord knoten => [(knoten, Integer)] -> Labeling knoten