let cmp x y =
    let b = compare x y in
    if b == 0 then Equal else if b > 0 then Greater else Less