0 x; 1 b; _ q; 100'[q~ 10 % b~ * x~ + x;  q~ q~ 10 % - + 10 / q; b~ 2*b;] x~`