let to_arabic s = I.(s |> of_string |> to_string_arabic)