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

SYMBOL: sum

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

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