! Create a subsequence from 'seq' by only selecting elements
! whose index is in 'indices'.
: pick-indices ( seq indices -- subseq )
    [ [ [ swap nth , ] curry ] map cleave ] { } make ;