4 lines
105 B
Text
4 lines
105 B
Text
vardef enum(expr first)(text t) =
|
|
save ?; ? := first;
|
|
forsuffixes e := t: e := ?; ?:=?+1; endfor
|
|
enddef;
|