Lazily compare the length of two
Foldables. >
comparingLength [1,2,3] [False] == GT > comparingLength [1,2] "ab"
== EQ > (xs :: [Int]) (ys :: [Int]) -> comparingLength xs ys ==
Data.Ord.comparing length xs ys > comparingLength
1,2 == LT
> comparingLength (1:2:3:undefined) [1,2] == GT