let palindrome s =
  let rec palindrome' s a b =
    if a >= b then
      true
    else if s.[a] = s.[b] then
      palindrome' s (a + 1) (b - 1)
    else
      false
  in
  let l = String.length s in
  palindrome' s 0 (l - 1)