r = (-1.5959891995126334, 0.0014206611731437022)
p, b, c, d, e, f, g = Polygon(Sequence[ί^(8 / 5 * t) * r, t, 0, 5])
k = 0.6180339887498949
n = 21 (slider from 0 to 21, step 1)
lista1 = Sequence(Translate[Dilate[p, k^(m), (0, 0)], (-(r * (1 - k^(m)))) / (1 - k)], m, 0, n)
p' = Polygon(Sequence[ί^(4 / 5 * t) * r, t, 0, 5])
lista2 = Sequence(Translate[Dilate[p', k^(m), (0, 0)], (-(r * (1 - k^(m)))) / (1 - k)], m, 0, n)