22 19. [do] dup 0 .r 7 * 3 / [loop]