cubeFaces :: [[Int]]
cubeFaces = [ [0,3,2,1]
            , [4,5,6,7]
            , [0,6,5,3]
            , [1,2,4,7]
            ]
cubeFaces :: [[Int]]
cubeFaces = [ [0,3,2,1]
            , [4,5,6,7]
            , [0,6,5,3]
            , [1,2,4,7]
            ]
cubeFaces = [ [0,3,2,1]
            , [4,5,6,7]
            , [0,6,5,3]
            , [1,2,4,7]
            ]