let
equal s1 s2 = compare s1 s2 = 0