centerLocationOfCluster :: Cluster -> Location
centerLocationOfCluster (Cluster blocks) =
    let (xs, ys) = unzip $ map (\(Location x y) -> (x, y)) (Map.keys blocks)
        average ns = (div (sum ns) (length ns)) in
    Location (average xs) (average ys)
centerLocationOfCluster :: Cluster -> Location
centerLocationOfCluster (Cluster blocks) =
    let (xs, ys) = unzip $ map (\(Location x y) -> (x, y)) (Map.keys blocks)
        average ns = (div (sum ns) (length ns)) in
    Location (average xs) (average ys)
centerLocationOfCluster (Cluster blocks) =
    let (xs, ys) = unzip $ map (\(Location x y) -> (x, y)) (Map.keys blocks)
        average ns = (div (sum ns) (length ns)) in
    Location (average xs) (average ys)