;******************************* ; MULTFIRST ;******************************* ; I/O examples: (setf mult-first-test (list (cons '() '()) (cons '(a) '(a)) (cons '(b a) '(a a)) (cons '(c b a) '(c c c)) (cons '(d c b a) '(d d d d)) (cons '(e d c b a) '(e e e e e)) (cons '(f e d c b a) '(f f f f f f)) ) )