g_wrap.mod 101 B

1234
  1. GENERIC IMPLEMENTATION MODULE Wrap;
  2. PROCEDURE Hi() : INTEGER;
  3. BEGIN RETURN HIGH(W) END Hi;
  4. END Wrap.