Vocabulary
math

Inputs
ian object
nan object
quota quotation with stack effect ( ... i -- ... )


Outputs
None

Definition


: (each-integer) ( ... i n quot: ( ... i -- ... ) -- ... )
2over <
[ [ nip call ] 3keep [ 1 + ] 2dip (each-integer) ] [ 3drop ]
if ; inline recursive