IMPLEMENTATION MODULE ALib;
BEGIN
  aval := 40
END ALib.