module Op: sig .. end
sig
end
type t =
|
Add
Sub
Mul
Div
val to_char : t -> char
t -> char
val to_fun : t -> int -> int -> int
t -> int -> int -> int
x < y
x-y