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