再帰の除去

このプログラムのソース

function aux(n, c) {
  return function(r) { return c(n * r); }; 
}

function factCPS(n, c) {   
  while (n > 0) {
    c = aux(n, c);
    n--;
  }
  return c(1);
}