( map square '(1 2 3) )
(cons (square (car '(1 2 3)) (map square (cdr '(1 2 3))) )
(cons (square 1) (map square '(2 3)) )
xが空リストでない
新しいmapを駆動(map2回目)
(define (map f x)
(cond ((null? x) nil)
(else (cons (f (car x)) (map f (cdr x)))) ))
(map f x)