A = (-1.64, 0.26)
B = Point(Circle[A, 1])
a = Segment(A, B)
poly1, b, c, d, e, f, g, h, i, C, D, E, F, G, H = Polygon(A, B, 8)
j, I, J, K, L, M, N, O, P, faceABJI, faceBCKJ, faceCDLK, faceDEML, faceEFNM, faceFGON, faceGHPO, faceAHPI, faceIJKLMNOP, arêteAI, arêteBJ, arêteCK, arêteDL, arêteEM, arêteFN, arêteGO, arêteHP, arêteIJ, arêteJK, arêteKL, arêteLM, arêteMN, arêteNO, arêteOP, arêteIP = Prism(poly1, 6)
k, Q, faceIJQ, faceJKQ, faceKLQ, faceLMQ, faceMNQ, faceNOQ, faceOPQ, faceIPQ, arêteIQ, arêteJQ, arêteKQ, arêteLQ, arêteMQ, arêteNQ, arêteOQ, arêtePQ = Pyramid(faceIJKLMNOP, 2)