petit problème urgent

Bonjour, en faite je voulais convertir un mot de type string en une valeur de type occurrences .

occurences est un type qui donne le nombres d'occurence de chaque carractère dans un mot.

Voici comment j'ai définit mon type occurences

type 'a liste = Cons of 'a * 'a liste | Null;;
type occurences = (char * int) liste;;

Exemple de type occurences : Cons( ('b', 2), Null )


En fait c'est un cas particulier du type 'a liste.

j'ai déjà écrit une fonction (ajout_occ acc liste_occs) qui ajoute une occurrence de type (char * int) dans la liste d'occurrences de type occurrences.

Maintenant pour cela je pense initialiser une nouvelle variable de type occurrences puis parcourir le mot de type string en ajoutant chaque caractère dans la variable de type occurrences à l'aide de la fonction ajout_occ et le renvoyer à la fin mais je ne réussit pas à le faire.


voici ce que j'ai fait mais sa marche pas

let conversion ajout_occ mot =
let acc = Null in for i = 0 to string_length (mot - 1) do
ajout_acc (mot.[i]) acc in acc
;;


merci de me donner une solution si vous en avez une svp.
j'attend impatiemment