0 2 511{0 8{exch 2 idiv 2 copy 1 and add}repeat =only}for