//istogramma
    int occ=0;
    frPtr=*lPtr;
    NodoPtr fwPtr=*lPtr;


    while(fwPtr != NULL){
        while(strcmp(frPtr->dato,frPtr->prossimoPtr)== 0){
            occ++;
            frPtr=frPtr->prossimoPtr;
            fwPtr=frPtr;
            }


        fprintf(fptr, "%15s  ", fwPtr->dato);

        for (int z=0; z<=occ;z++) {
              fprintf(fptr, "*");

             }
        fprintf(fptr, "\n");

        occ=0;
        fwPtr=fwPtr->prossimoPtr;
            frPtr=fwPtr;
            }

fclose(fptr);
}