USING: math kernel continuations ;
IN: benchmark.continuations
: continuations-benchmark ( -- )
1,000,000 [ drop [ continue ] callcc0 ] each-integer ;
MAIN: continuations-benchmark