let
equal s t = compare s t = 0