USING: continuations kernel math ;

[ 10 2 / swap continue-with 1 0 / ] callcc1