[ local 1
    top as %1%
]

[ change 0
    1 + dup get
    swap 2 get swap set
    swap drop
]