let rec string_of_IntArray arr (n:int) =
if n=0 then string_of_int arr.(0) else (string_of_IntArray arr (n-1))^(string_of_int arr.(n))