>>735
頂点、辺をそれぞれ整数で表わす
data Graph a = Graph
　{ nodes :: IntMap (a, [Int]) -- [Int]はここから出る辺のリスト
　, edges :: IntMap (Int, Int) -- 出発頂点と行き先頂点
　, nextInt :: Int -- 次に頂点や辺を作ったときに割り当てる整数
　}