stripsFromPentagon :: [Int] -> [[[Int]]]
stripsFromPentagon pentagonVerticeIds =
  map addPentagon $ map (findTriangleStrip snubTriangles (-1)) $ cyclicConsecutivePairs pentagonVerticeIds
  where addPentagon l = pentagonVerticeIds : l
stripsFromPentagon :: [Int] -> [[[Int]]]
stripsFromPentagon pentagonVerticeIds =
  map addPentagon $ map (findTriangleStrip snubTriangles (-1)) $ cyclicConsecutivePairs pentagonVerticeIds
  where addPentagon l = pentagonVerticeIds : l
stripsFromPentagon pentagonVerticeIds =
  map addPentagon $ map (findTriangleStrip snubTriangles (-1)) $ cyclicConsecutivePairs pentagonVerticeIds
  where addPentagon l = pentagonVerticeIds : l