let must_escape str = let len = String.length str in len = 0 || let rec loop ix = is_special_char str.[ix] || ix > 0 && loop (ix - 1) in loop (len - 1)