toGraph l graf = concat $ map f l
    where
        f label = toGraph label graf
        toGraph l n:ns
            | l == getLabel n = [n]
            | otherwise = toGraph l ns
        toGraph l [] = []