// Input data
var words = new Array("a","b","c","d","e","f","g","h","i","j");
var startIndex =  0 ;

// For working with filesystem
var fso = WScript.CreateObject("Scripting.FileSystemObject");
var file = fso.OpenTextFile(".\\result.txt",  2 , true);

// Temporary variable
var tempResult = new Array();

// Ancillary function
function contains(arr, word, pos){

  for(var i =  0 ; i <= pos; i++){
	  if(arr[i] == word) return true;
  }
  return false;
  
}

// Magic function
function make(param, startIndex){
     for(var i =  0 ; i < param.length; i++){
		     if(!contains(tempResult, param[i], startIndex)){
		     tempResult[startIndex] = param[i];
		     if (startIndex < param.length- 1 ){
	     	     	   make(param, startIndex+ 1 );
		     } else{
		       file.WriteLine(tempResult);
		     }

            }
     }
}


// Main program
make(words, startIndex);
file.close();