ð#Syntax10.Scn.FntòòMODULE MathL; (* RC 23.4.92 *) IMPORT Unix, S := SYSTEM; CONST pi* = 3.141592653589793D0; e* = 2.718281828459045D0; VAR sin*, cos*, arctan*, ln*, exp*, sqrt*: PROCEDURE(x: LONGREAL): LONGREAL; BEGIN Unix.dlsym(0, "sin", S.VAL(LONGINT, sin)); Unix.dlsym(0, "cos", S.VAL(LONGINT, cos)); Unix.dlsym(0, "atan", S.VAL(LONGINT, arctan)); Unix.dlsym(0, "log", S.VAL(LONGINT, ln)); Unix.dlsym(0, "exp", S.VAL(LONGINT, exp)); Unix.dlsym(0, "sqrt", S.VAL(LONGINT, sqrt)) END MathL.