Eu preciso acelerar esses loops integrados, como posso fazer por favor?

for(M_P in 0:9)
{
for(M_D in 0:(9-M_P))
{
for(M_A in 0:(9-M_P-M_D))
{
  for(M_CC in 0:(9-M_P-M_D-M_A))
  {
    for(M_CD in (9-M_P-M_D-M_A-M_CC))
    {


      for(G_D in 0:9)
      {
        for(G_A in 0:(9-G_D))
        {
          for(G_CC in 0:(9-G_D-G_A))
          {
            for(G_CD in (9-G_D-G_A-G_CC))
            {


              for(S_D in 0:9)
              {
                for(S_A in 0:(9-S_D))
                {
                  for(S_CC in 0:(9-S_D-S_A))
                  {
                    for(S_CD in (9-S_D-S_A-S_CC))
                    {


                      for(Q_P in 0:3)
                      {
                        for(Q_D in 0:(3-Q_P))
                        {
                          for(Q_A in 0:(3-Q_P-Q_D))
                          {
                            for(Q_CC in 0:(3-Q_P-Q_D-Q_A))
                            {
                              for(Q_CD in (3-Q_P-Q_D-Q_A-Q_CC))
                              {

Está demorando muito para calcular como posso fazer, por favor? Eu sou apenas um iniciante, mas ouvi dizer que há talvez algo com a coisa de aplicar ou também com vários núcleos eu tenho 4cores, eu estou usando o Rstudio por favor me ajude. Obrigado mens!

PS: diga-me se você precisa do resto do código, mas é um cálculo simples com * e + usando todos os M_P, M_D etc. Se eu deixá-lo durante a noite, ele tem uma chance de terminar? Eu gostaria de adicionar alguns loops nisso, então eu teria que fazer tudo isso mais 3 ou 10 vezes: s