is_sorted

let is_sorted (a: string array) : bool =
  Array.for_all (fun y -> y)
    (Array.mapi (fun i x ->
         if i = 0
         then
           true
         else
           a.(i) > a.(i - 1)) a)
;;