MODULE PrivTest;

   IMPORT Log, SYSTEM;
   
   PROCEDURE Do* (a, b: INTEGER);
      VAR   p: POINTER TO ARRAY OF ARRAY OF INTEGER; i, j, base: INTEGER;
   BEGIN
      NEW(p, a, b);
      i := 0;
      base := SYSTEM.ADR(p^);
      WHILE i < LEN(p) DO
         j := 0;
         WHILE j < LEN(p[i]) DO
            Log.Int(SYSTEM.ADR(p[i, j]) - base);
            INC(j)
         END;
         Log.Ln;
         INC(i)
      END
   END Do;
   
END PrivTest.
^Q "PrivTest.Do(2, 3)"

  0 4 8
 12 16 20