33 lines
503 B
Plaintext
33 lines
503 B
Plaintext
|
hugo : module
|
||
|
|
|
||
|
|
synmode a = range(1:10);
|
||
|
|
synmode p = powerset a;
|
||
|
|
|
||
|
|
synmode s = set (sa, sb, sc);
|
||
|
|
synmode s_ps = powerset s;
|
||
|
|
|
||
|
|
x: proc (ps p);
|
||
|
|
dcl i a;
|
||
|
|
do for i in ps;
|
||
|
|
writetext (stdout, "%C ", i);
|
||
|
|
od;
|
||
|
|
writetext(stdout, "%/");
|
||
|
|
end x;
|
||
|
|
|
||
|
|
y : proc (ps s_ps);
|
||
|
|
dcl i s;
|
||
|
|
do for i in ps;
|
||
|
|
writetext (stdout, "%C ", i);
|
||
|
|
od;
|
||
|
|
writetext(stdout, "%/");
|
||
|
|
end y;
|
||
|
|
|
||
|
|
dummy: proc ();
|
||
|
|
end dummy;
|
||
|
|
|
||
|
|
x([1,2,3]);
|
||
|
|
y([sa, sc]);
|
||
|
|
dummy ();
|
||
|
|
|
||
|
|
end hugo;
|