Plaster

(let ((l (loop :for i :from 1 :to 2000 :collect (random 100000))) (top (make-array 3 :element-type 'fixnum))) (loop :for e :in l :do (loop :for i :below (length top) :do (setf (aref top i) (max (aref top i) e)))) top)