: couchdb-reduce ( assoc quots rereduce? -- seq )
    [ unzip swap keys ] 2dip
    '[ eval( -- quot ) _ call( value key rereduce? -- output ) ] 3map ;