(de treeize (A)
   (make
      (link (pop 'A))
      (loop
         (NIL A)
         (T (< (car A) (last (made))))
         (if (or (> (car A) (last (made)))
                (> (cadr A) (last (made))) )
            (link (cons (pop 'A) (treeize A)))
            (link (pop 'A)) ) ) ) )

(traceAll)
(println (treeize '(0 0 1 1 1 2 3 3 4 5 5 3 2 1 1 0)))
(bye)