RosettaCodeData/Task/Loops-While/Fermat/loops-while.fermat

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