module Ordering:sig..end
Ordering is intended to make code that matches on the result of a comparison
    more concise and easier to read.  For example, one would write:
      match Ordering.of_int (compare x y) with
      | Less -> ...
      | Equal -> ...
      | Greater -> ...
    
rather than:
      let r = compare x y in
      if r < 0 then
        ...
      else if r = 0 then
        ...
      else
        ...
    type t = 
| | 
Less | 
| | 
Equal | 
| | 
Greater | 
val of_int : int -> tof_int n is:
      Less     if n < 0
      Equal    if n = 0
      Greater  if n > 0
   module Export:sig..end
val t_of_sexp : Sexplib.Sexp.t -> tval sexp_of_t : t -> Sexplib.Sexp.tval compare : t -> t -> intval bin_t : t Bin_prot.Type_class.tval bin_read_t : t Bin_prot.Read_ml.readerval bin_read_t_ : t Bin_prot.Unsafe_read_c.readerval bin_read_t__ : (int -> t) Bin_prot.Unsafe_read_c.readerval bin_reader_t : t Bin_prot.Type_class.readerval bin_size_t : t Bin_prot.Size.sizerval bin_write_t : t Bin_prot.Write_ml.writerval bin_write_t_ : t Bin_prot.Unsafe_write_c.writerval bin_writer_t : t Bin_prot.Type_class.writerof_int n is:
      Less     if n < 0
      Equal    if n = 0
      Greater  if n > 0