race x y (a:as) =
    if x == y then EQ
    else if x == a then LT
    else if y == a then GT
    else race x y as
race x y (a:as) =
    if x == y then EQ
    else if x == a then LT
    else if y == a then GT
    else race x y as
race x y (a:as) =
    if x == y then EQ
    else if x == a then LT
    else if y == a then GT
    else race x y as