longer :: [a] -> [b] -> Ordering
longer a b | length(a) > length(b) = GT |
             length(a) < length(b) = LT |
             length(a) == length(b) = EQ
longer :: [a] -> [b] -> Ordering
longer a b | length(a) > length(b) = GT |
             length(a) < length(b) = LT |
             length(a) == length(b) = EQ
longer a b | length(a) > length(b) = GT |
             length(a) < length(b) = LT |
             length(a) == length(b) = EQ