OPTIONS(/E/C/-Q/-A/-I/-D);
INTEGER PROCEDURE ilog(x);   LONG REAL x;
ilog:= IF x = 0 THEN 0 ELSE Entier(Ln(Abs(x))/2.30258 50929 94045 685 &&0)+1;