let to_int64 i = Int64.of_string (string_of_big_int i)