0 do dup . 1 + loop