make-list wの結果にlist-copyをmapするというのはどう?