#load "nums.cma";;
open Num;;

(* affiche la représentation décimale de 4444^4444 *)

let bignum = (num_of_int 4444) **/ (num_of_int 4444);;


(* affiche la représentation décimale de 4444^4444 *)

string_of_num bignum;;


(* calcule la somme des chiffres décimaux de 4444^4444 *)

let somme s = 
let valeur c = int_of_char c - 48 in 
let t = ref 0 in 
for k = 0 to String.length s - 1 do t := !t + valeur s.[k] done;
 !t;;

somme (string_of_num bignum);;
