(cond
    [(empty? alon) empty]
    [(cons? alon) (if (
                       (max2 (first alon)
                             (first (rest alon))
                             )
                       (cons (first alon))
                       (right-max (rest alon))
                     ))]
   )