multifactorial3(N,Degree) = M =>
  M = 1, I = N,
  while(I > 0)
    M := M*I,
    I := I - Degree
  end.