var fso = new ActiveXObject( "Scripting.FileSystemObject" );
var ts = fso.OpenTextFile( "wordlist.txt" );
var d = new Date().valueOf();

var wordtable = {};
while( !ts.AtEndOfStream )
{
	var word = ts.ReadLine();
	var base = word.toUpperCase().split("").sort().join("");
	if( wordtable[base] )
		wordtable[base].push(word);
	else
		wordtable[base] = [word];
}
ts.Close();

for( var key in wordtable )
{
	if( wordtable[key].length > 1 )
	{
		WScript.echo( wordtable[key].join( " = " ) );
	}
}

var t = new Date().valueOf() - d;
WScript.echo( t + " ms" );