USING: kernel math prettyprint ;
0 [ dup .o 1 + t ] loop