"CODE" 30007;
"REAL" "PROCEDURE" E;
E:= 2.71828182845905;
        "EOP"