cl-lib なので cl-reduceに