Можно ли выполнить этот цикл параллельно (1)?

Следующий фрагмент кода реализует простую игру в кости. Правила игры таковы:

• Инициализация: total <- 0.
• Бросаем один кубик и прибавляем выпавшее значение к total.
• Если total чётное, сбрасываем total в ноль.
• Если total больше 10, игра завершается.

Закодировать это на R несложно:

total <- no_of_rolls <- 0 # Initialize
while(total < 10) {
  total <- total + sample(1:6, 1)

  if(total %% 2 == 0) total <- 0  # If even. Reset to 0

  no_of_rolls <- no_of_rolls + 1
}
no_of_rolls

Как вы считаете, можно ли (легко) выполнить этот алгоритм параллельно?