foo ( obj -- obj n )


Vocabulary
benchmark.typecheck1

Inputs
objan object


Outputs
objan object
nan object


Definition
USING: accessors kernel math ;

IN: benchmark.typecheck1

: foo ( obj -- obj n ) 0 100000000 [ over n>> + ] times ;