(define (rev x z)
(cond ((null? x) z)
(else (rev (cdr x) (cons (car x) z)))))
(define (append x z)
(else (cons (car x) (append (cdr x) z))) ))
巻き取り段階で新しいappendを駆動
consは巻き戻し段階で評価
revは末端再帰関数
rev中のconsは巻き取り段階で評価