[AWK] nombre d'occurrences d'un mot

johand@osiris:~/src/awk$ cat data.txt 
Thomas
Thomas
Thomas
Bernard
Bernard
Bernard
Marie
Marie
Marie
Marie
Marie
Thomas
Joel
Joel
johand@osiris:~/src/awk$ cat count.awk
{
    frequencies[$1]++;
}
END {
    for (name in frequencies)
	printf "%s\t%d\n" , name ,frequencies[name];
}
johand@osiris:~/src/awk$ awk -f count.awk < data.txt 
Thomas	4
Bernard	3
Joel	2
Marie	5

function affichage1 (nom, occurence)
{
    print nom, occurence
}

function affichage2 (nom, occurence)
{
    for (i = 0 ; i < occurence; i++)
	print nom, "=", occurence
}

NR == 1 {store = $1; occurence=1;} # initialisation
NR != 1 { 
    if ( store == $1) 
	occurence++;
    else {
	affichage2(store, occurence) # changer suivant affichage voulu
	store = $1; occurence=1;
    }    
}

END { affichage2(store, occurence);} # changer ici aussi! 

johand@osiris:~/src/awk$ cat count.awk
BEGIN{
    cnt=0;
}
{
    if (frequencies[$1] == 0 )
    {
	names[cnt++] = $1;
    }
    frequencies[$1]++;

}
END {
    for (name in frequencies)
    {
	printf "%s\t%d\n" , name ,frequencies[name];
    }
    print "--------------AFFICHAGE 2------------------";
    for (i=0; i < cnt; i++)
    {
	for (j=1; j <= frequencies[names[i]]; j++)
	{
	    printf "%s %d\n" ,  names[i], frequencies[names[i]];
	}
    }
}