: reduce1 ( seq quot -- result ) [ ] swap map-reduce ; inline