[ptr 1 2 3] dup 1 [ptr 7] set ;