let get_sum_iter n =
  let aux = n ref in
  let sum = ref in
  ( while(aux) do
      sum := !sum + !aux mod 10;
      aux := !aux / 10
    done;
   !aux );;