-- |Add each face to the next face, left -> right, resulting in CubePoints.
-- Ex: pass a RightFace into a list of LeftFaces, resulting in a list of CubePoints
(+++>) :: CornerPoints -> [CornerPoints] -> [CornerPoints]
a +++> bs =
     tail $ scanl (+++) a bs
(+++>) :: CornerPoints -> [CornerPoints] -> [CornerPoints]
a +++> bs =
     tail $ scanl (+++) a bs
a +++> bs =
     tail $ scanl (+++) a bs