code 30004;
real procedure GIANT;
GIANT:= (2**48-1)*2**1022;
        eop