(defun funny-less (left right)
      (let ((ll (len left))
            (lr (len right)))
        (or (< ll lr)
            (if (eql ll lr)
              (< (car left) (car right))))))

(defun funny-greater (left right)
      (let ((ll (len left))
            (lr (len right)))
        (or (> ll lr)
            (if (eql ll lr)
              (> (car left) (car right))))))

(defun maj-pare-down (list pos)
      (cdr [find-max [group-by (op ref @1 pos) list] funny-greater]))

(defun min-pare-down (list pos)
      (cdr [find-min [group-by (op ref @1 pos) list] funny-less]))

(let ((list *2))
     (each ((i 0..12))
        (upd list (min-pare-down @1 i)))
     list)

[apply * (mapcar (op toint @1 2) (flatten results))] ;; results contains two numbers in text form