let reverse_int n =
  let m = ref n in
  let r = ref 0 in
  while !m > 0 do
    r := !r * 10 + !m mod 10;
    m := !m / 10
  done;
  !r

;;

reverse_int 12345 + reverse_int 100 + reverse_int 7