oneliner=Dilate(Sequence(Sequence(Translate({Sequence(Rotate(Segment((1 - a / 2, 0), (1, 0)), k * 60°), k, 0, 5), Polygon((1 - a / 2, 0), (1 - a / 2; 60°), 6)}, (1.5 (i + j), (j - i) sqrt(3) / 2)), i, -3, 3), j, -3, 3), 2^a)