nise_permutate.js

var nise_permutate = function(list, subref, length) {
  nestf = function(arg, arg1) {
    nestfor(list, arg, arg1);
  };  
  for (var i=0;i<length;i++) {
    subref = gen(subref);
  }
  nestf(subref, '');
};

var nestfor = function(ary, sub, bind){
  if (typeof(bind) == 'undefined') {
    bind = ""; 
  }
  for (var j=0;j<ary.length;j++) {
    sub(bind+ary[j]);
  }
};

var gen = function(s) {
  return function(s2){ nestfor(set, s, s2);}
};

var set = [2, 1]; 
var main = function(str){print(str);};
var len = 2;

nise_permutate(set, main, len);