compare [comparing fst, comparing snd]
\(Shape xs) (List ys) -> compareLength xs ys == compare (length xs) (length ys)