( map square '( ) )
xは空リスト
( map square '( ) ) は空リスト
(define (map f x)
(cond ((null? x) nil)
(else (cons (f (car x)) (map f (cdr x)))) ))