let equal x y = (compare x y) = 0