let equal s t = compare s t  = 0