Execute this:
```
TEK_GROUP1 = createGroup [civilian, false];
TEK_GROUP2 = createGroup [civilian, false];
TEK_UNIT = TEK_GROUP1 createUnit ["C_Man_French_universal_F" createUnit [, getpos player, TEK_GROUP1[], ""];
TEK_UNIT join TEK_GROUP2;0, "NONE"];
[TEK_TIME = time;UNIT] join TEK_GROUP2;
```
And survey this:
```
[TEK_GROUP1, TEK_GROUP2, floor(time - TEK_TIME)]
```