Vocabulary
math

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


Outputs
?an object


Definition


: (all-integers?)
( ... i n quot: ( ... i -- ... ? ) -- ... ? )
2over < [
[ nip call ] 3keep roll
[ [ 1 + ] 2dip (all-integers?) ] [ 3drop f ] if
] [ 3drop t ] if ; inline recursive