(defun hoge (x y)
(mapcar (lambda (z) (cons x z)) y))
こんな関数どっかにある？