IN: xxx :: (blah) ( i n -- ) i n < [ i 1 + n (blah) ] when ; inline recursive : blah ( n -- result ) 0 swap { fixnum } declare (2map-reduce) ; inline