M2compiler-V3/compiler/tests/showcase24util.mod

IMPLEMENTATION MODULE Show24Util;
IMPORT Strings, Conversions, Math;

PROCEDURE Label(prefix : ARRAY OF CHAR; n : INTEGER;
                VAR out : ARRAY OF CHAR);
VAR num : ARRAY [0 .. 15] OF CHAR;
BEGIN
  Conversions.IntToStr(n, num);
  Strings.Concat(prefix, num, out)
END Label;

PROCEDURE Root(n : INTEGER) : INTEGER;
BEGIN
  RETURN VAL(INTEGER, Math.floor(Math.sqrt(VAL(REAL, n))))
END Root;
END Show24Util.