I would really appreciate it if someone would be able to help me generate the following figure in Mathematica.

[![image to be replicated](https://i.stack.imgur.com/7NYic.png)](https://i.stack.imgur.com/7NYic.png)

This is what I have started with:

```
redius = 6;
center = 3;
font = 15;

Graphics[{
  Circle[{-center, -center}, redius], 
  Circle[{-center, center}, redius], 
  Circle[{center, -center}, redius], 
  Circle[{center, center}, redius],
  Black, Text[Style["Technical Tools", FontSize -> font], {-redius, center + 2}],
  Black, Text[Style["Human \n Aspect", FontSize -> font], {center + 1, redius + 1}],
  Black, Text[Style["Mental \n Process", FontSize -> font], {-redius, -redius + 1}], ,
  Black, Text[Style["Paperwork \n Process", FontSize -> font], {redius, -center - 1}]
}]

```

and I have been able to generate the following figure.

[![my best attempt](https://i.stack.imgur.com/CenBi.jpg)](https://i.stack.imgur.com/CenBi.jpg)