function WS1C
y=1;
while 1+y>1
    y=y/2
    pause(.01)
end