rotateCluster :: Cluster -> Cluster
rotateCluster cluster@(Cluster blocks) =
    let tranformation = \(Location x y) -> Location (y) (- x)
        rotatedCluster = Cluster $ Map.mapKeys tranformation blocks in
        centerClusterAtLocation (centerLocationOfCluster cluster) rotatedCluster
rotateCluster :: Cluster -> Cluster
rotateCluster cluster@(Cluster blocks) =
    let tranformation = \(Location x y) -> Location (y) (- x)
        rotatedCluster = Cluster $ Map.mapKeys tranformation blocks in
        centerClusterAtLocation (centerLocationOfCluster cluster) rotatedCluster
rotateCluster cluster@(Cluster blocks) =
    let tranformation = \(Location x y) -> Location (y) (- x)
        rotatedCluster = Cluster $ Map.mapKeys tranformation blocks in
        centerClusterAtLocation (centerLocationOfCluster cluster) rotatedCluster