pentagonalHexecontahedronFaces :: [[Int]]
pentagonalHexecontahedronFaces = map toFaceIds stripsFromAllPentagons
  where toFaceIds l = map toFaceId l
        toFaceId indice = fromJust $ elemIndex indice snubDodecahedronFaces
pentagonalHexecontahedronFaces :: [[Int]]
pentagonalHexecontahedronFaces = map toFaceIds stripsFromAllPentagons
  where toFaceIds l = map toFaceId l
        toFaceId indice = fromJust $ elemIndex indice snubDodecahedronFaces
pentagonalHexecontahedronFaces = map toFaceIds stripsFromAllPentagons
  where toFaceIds l = map toFaceId l
        toFaceId indice = fromJust $ elemIndex indice snubDodecahedronFaces