n:=1024;
while n>2/3 do !!n;n:=n/2; od;