I'm trying to sketch polymers. Here is how I do it for the monomer:

```
Graph[{1 <-> 2, 2 <-> 3, 3 <-> 4, 4 <-> 5, 5 <-> 6, 6 <-> 1, 4 <-> 7, 7 <-> 8}] 

```

![Mathematica graphics](https://i.stack.imgur.com/7FWhO.png)

How can the left part arranged to form a **regular hexagon**? This is only a subunit so for polymers there are more. Is there a general way to do so? For the polymer, I wrote an ugly one:

```
Mol[k_] := Join[
   Table[Join[
     Table[(8 n + i) <-> (8 n + i + 1), {i, 5}],
     {(8 n + 6) <-> (8 n + 1), (8 n + 4) <-> (8 n + 7), (8 n + 7) <-> (8 n + 8),
      (8 n + 8) <-> (8 n + 9)}], {n, 0, k - 2}],
   Join[Table[(8 (k - 1) + i) <-> (8 (k - 1) + i + 1), {i, 5}],
     {(8 (k - 1) + 6) <-> (8 (k - 1) + 1), (8 (k - 1) + 4) <-> (8 (k - 1) + 7),
      (8 (k - 1) + 7) <-> (8 (k - 1) + 8)}]] // Flatten;

Graph[Mol[5], VertexLabels -> "Name", ImagePadding -> 10, ImageSize -> 1000]

```

![Mathematica graphics](https://i.stack.imgur.com/acqAt.png)