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