let compare (a : Char.t list) (b: Char.t list) = compare a b