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