perl -e '$eps=1;while(1<1+$eps){$eps/=2;}print "$eps\n"'