complete :: (Enum a, Eq a, Num a, Show a) => a -> Graph.LabeledGraph
complete n = Graph.graphFromEdgeList
    [((show a), (show b)) | a <- [1..n], b <- [1..n], a /= b]
complete :: (Enum a, Eq a, Num a, Show a) => a -> Graph.LabeledGraph
complete n = Graph.graphFromEdgeList
    [((show a), (show b)) | a <- [1..n], b <- [1..n], a /= b]
complete n = Graph.graphFromEdgeList
    [((show a), (show b)) | a <- [1..n], b <- [1..n], a /= b]