let my_int64_of_big_int i = Int64.of_string (Big_int.string_of_big_int i)