, . 10, : . .

, , .

. . . : , .

, , .

, , , .

, .

Block # 156 0 ( , ) 1 VARIABLE \ , 2 VARIABLE - \ 3 \ 4 70 CONSTANT \ 5 : ( - -- - | -) 6 2DUP + ROT ROT OVER + SWAP 1 @ BL = 7 IF DROP I LEAVE THEN LOOP ; 8 : ( a -- a -) \ .