 . sqrt $ maxD) - 1
    where maxD ∷ Double
          maxD = fromIntegral (maxBound ∷ Int)


-- | The minimum vertex
minVertex ∷ Vertex
mi
maxVAsInt = (floor . sqrt $ maxD) - 1
    where maxD ∷ Double
          maxD = fromIntegral (maxBound ∷ Int)


-- | The minimum vertex
maxVAsInt = (floor . sqrt $ maxD) - 1
    where maxD ∷ Double
          maxD = fromIntegral (maxBound ∷ Int)


-- | The minimum vertex