! A shorter map reduce
! exploits the so called "map fusion" law
! fold f e . map g = fold (f . g) e

: map-reduce ( seq map-quot reduce-quot -- result )
  [ unclip-slice ] 2dip compose reduce ;