scip 练习2.18

(define (append a b )
  (if (null? a )b
      (cons (car a)
            (append (cdr a) b))))

(define (reverse l)
(append
 (reverse (cdr l))
 (list (car l))
 ))