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