REBOL[]repeat n 99[print join""["N="n",A="to-integer(min n / 11 + 11 n + 1)/ 2]]