(set-cdr! (last-pair (caddr ls)) (cons ls7 '()))