let arabic s = of_string s |! to_arabic