function A7fMtuL5(){
    var RelArray=new Array();
    var Raw=new Array();
    var SingNames=new Array();
    if(document.getSelection)txt=document.getSelection();
    if(document.selection)txt=document.selection.createRange().text;
    nomens=txt.match(/([a-zA-Z0-9]{4,})/g);
    for(i=0;i<nomens.length;i++){
        if(RelArray[nomens[i]]==undefined){
            Raw[Raw.length]=nomens[i];
            RelArray[nomens[i]]=[nomens[i],1];
        }else{
            RelArray[nomens[i]][1]++;
        }
    };
    for(j=0;j<Raw.length;j++){SingNames[j]=RelArray[Raw[j]];};
    function mySort(a,b){
        if(a[1]>b[1])return -1;
        if(a[1]==b[1]){
            if(a[0]>b[0])return 1;
            if(a[0]<b[0])return -1;
            return 0;
        };
        return 1;
    };
    omens=SingNames.sort(mySort);
    l=Raw.length;
    l=(l-l%4)/4;
    body='<table with=640 border=1 align=center>';
    for(k=0;k<l;k++){
        body+='<tr>';
        for(m=0;m<4;m++){
            body+='<td width=140>'+omens[4*k+m][0]+'</td><td width=20>'+omens[4*k+m][1]+'</td>';
        };
        body+='</tr>\n';
    };
    d=window.open().document;
    d.write('<title>Words</title><body>'+body+'</table></body>');
    d.close();
}

A7fMtuL5()

