TYPE
  A = INT + STR + A-set;
ENDTYPE

  a1 <- A(a,12);
  a0 <- A(3,{});

  g1(x)*= x .+ 33;
  g2(x)*= x ++ "batatas";
  g3(x)*= x;

  pp(fadd(a1,<g1,g2,g3>));
  pp(cotup(a0,<g1,g2,g3>));