floretFaces :: RealFloat a =>  [[Point3f a]] -> [[Int]]
floretFaces floretIco = replaceWithId 0 floretIco
  where replaceWithId _ [] = []
        replaceWithId n (face:faces) = take (length face) [n..] : (replaceWithId (n+length face) faces)
floretFaces :: RealFloat a =>  [[Point3f a]] -> [[Int]]
floretFaces floretIco = replaceWithId 0 floretIco
  where replaceWithId _ [] = []
        replaceWithId n (face:faces) = take (length face) [n..] : (replaceWithId (n+length face) faces)
floretFaces floretIco = replaceWithId 0 floretIco
  where replaceWithId _ [] = []
        replaceWithId n (face:faces) = take (length face) [n..] : (replaceWithId (n+length face) faces)