list :: (Enum a, Num a, Show a) => a -> Graph.LabeledGraph
list n = Graph.graphFromEdgeList [(show v, show (v+1)) | v <- [1..(n-1)]]
list :: (Enum a, Num a, Show a) => a -> Graph.LabeledGraph
list n = Graph.graphFromEdgeList [(show v, show (v+1)) | v <- [1..(n-1)]]
list n = Graph.graphFromEdgeList [(show v, show (v+1)) | v <- [1..(n-1)]]