3 lines
80 B
Factor
3 lines
80 B
Factor
USING: continuations kernel math ;
|
|
|
|
[ 10 2 / swap continue-with 1 0 / ] callcc1
|