% Calcola il piu' piccolo numero x=2^p
% tale che 1+x>x
%
p=0;
epsilon=1;
while 1~=1+epsilon
    epsilon=epsilon/2;
    p=p+1;
end
epsilon=epsilon*2
p=p-1
% il ciclo e' eseguito una volta 
% in piu' e quindi p=p-1