(use-modules (srfi srfi-1))

(first (sort (valid-moves)
             (lambda (a b)
               (> (flipped-by-move a)
                  (flipped-by-move b)))))