module mod16m;
  export mod16m = (ci, ce, te, ts, ve, vs, pe, ps);
type te = (a, b, c, d);
     tc = (ca, ce, cf);
     ts = set of tc;
const ci = 15;
var ve : te;
    vs : ts;
procedure pe (x : te);
procedure ps (x : ts);
end;
procedure pe;
begin
end;
procedure ps;
begin
end;
end
.
