ð#Syntax10.Scn.FntÚÚMODULE Math; (* RC 23.4.93 *) IMPORT Unix, S := SYSTEM; CONST pi* = 3.1415926535; e* = 2.7182818285; VAR sin*, cos*, arctan*, ln*, exp*, sqrt*: PROCEDURE(x: REAL): REAL; BEGIN Unix.dlsym(0, "fsin", S.VAL(LONGINT, sin)); Unix.dlsym(0, "fcos", S.VAL(LONGINT, cos)); Unix.dlsym(0, "fatan", S.VAL(LONGINT, arctan)); Unix.dlsym(0, "flog", S.VAL(LONGINT, ln)); Unix.dlsym(0, "fexp", S.VAL(LONGINT, exp)); Unix.dlsym(0, "fsqrt", S.VAL(LONGINT, sqrt)) END Math.