( @check 42 )

3 14

\ multiply
>r 0 r> 0 >r >r begin over +

0 >r r> r> r> 1+ 2dup >r >r = swap >r r> drop

until r> r> drop drop swap drop

print