function WS1B
y=1;
while y+y>y
    y=2*y
    pause(.01)
end