code 30007;
real procedure E;
E:= 2.71828182845905;
        eop