(def >= args (let f (afn (ar) (or no.ar (no:cdr ar) (and (no:< car.ar cadr.ar) (self:cdr ar)))) (if (f args) car.args)))
-----