Prog Caml : Affiche la somme d'entiers donnés

Ecrivez maintenant un programme qui demande un entier n à l'utilisateur, et qui lui demande ensuite n fois un entier, pour afficher à la fin la somme de ces n entiers. Rappel du pseudo-code à traduire en Caml :

demander n à l'utilisateur
soit une nouvelle boite nommée total, avec 0 pour contenu
faire n fois :
  demander un entier à l'utilisateur;
  mettre dans la boite total : son contenu courant + l'entier donné;
;
afficher le contenu de la boite total;

Code à compléter Caml

let read_int() = Scanf.scanf " %d" (fun x -> x);;

...à compléter...