: 2constant create , , does> dup 1+ @i swap @i ;