USING: kernel math sequences ;

: diff ( seq -- newseq )
    dup 1 tail swap [ - ] 2map ;

USE: tools.test
[ { -2 3 -3 4 4 -7 4 -1 } ] [ { 3 1 4 1 5 9 2 6 5 } diff ] unit-test