INTERFACE Main;

TYPE
  E = {a, b, c};

PROCEDURE p (e := E.b);
PROCEDURE q (e := E.b);
PROCEDURE r (e : E := E.c);
PROCEDURE s (e : E := E.c);

END Main.