gistfile1.rebol

values: copy [A B C]
foreach p [1 2 3 4] [
    foreach i [-4 -3 -2 -1 0 1 2 3 4] [
        pick at values p i
    ]
]

{
;; REBOL 2

       i:      -4    -3    -2    -1     0     1     2     3     4
    p:
(h) 1    [ ... none  none  none  none   none  A     B     C     none ... ]
    2    [ ... none  none  none  A      none  B     C     none  none ... ]
    3    [ ... none  none  A     B      none  C     none  none  none ... ]
(t) 4    [ ... none  A     B     C      none  none  none  none  none ... ]


;; REBOL 3

       i:      -4    -3    -2    -1     0     1     2     3     4
    p:
(h) 1    [ ... none  none  none  none   none  A     B     C     none ... ]
    2    [ ... none  none  none  none   A     B     C     none  none ... ]
    3    [ ... none  none  none  A      B     C     none  none  none ... ]
(t) 4    [ ... none  none  A     B      C     none  none  none  none ... ]


(h) "head position"
(t) "tail position"
}