RosettaCodeData/Task/Order-two-numerical-lists/Wart/order-two-numerical-lists.wart

def (a < b) :case (or list?.a list?.b)
  if not.b
       nil
     not.a
       b
     (car.a = car.b)
       (cdr.a < cdr.b)
     :else
       (car.a < car.b)