USING: namespaces math partial-continuations tools.test
kernel sequences fry ;
IN: partial-continuations.tests

SYMBOL: sum

: range ( r from to -- n )
    over - 1 + rot [ 
        '[ over + @ drop ] each-integer drop f
    ] bshift 2nip ; inline

[ 55 ] [
    0 sum set 
    [ 1 10 range sum get + sum set f ] breset drop
    sum get
] unit-test