let
match_character_class cl c =
Bool
.eval
begin
function
(c1,c2)
->
c1 <= c
&&
c <= c2
end
cl