1 while /= -- dup dup: !. dup ++ drop