proc msetring(int ch, int nvars, string ordering) { execute "ring r = " + string(ch) + ",x(1.." + string(nvars) + "), " + ordering + ";"; } msetring(0,2,"dp"); ; proc msetring(int ch, int nv, string ordering) { execute "ring r = " + string(ch) + ",x(1.." + string(nv) + "), " + ordering + ";"; } msetring(0,2,"dp"); basering; proc msetring(int ch, int nv, string ordering) { execute "ring r = " + string(ch) + ",x(1.." + string(nv) + "), " + ordering + ";"; keepring r; } msetring(0,2,"dp"); basering; <"~/tst/std_l.tst"; q ; $ ; basering; gcyclic(3,"r"); gcyclic(3,"r"); gcyclic(3,"r"); gcyclic(3,"r"); gcyclic(3,"r"); gcyclic(3,"h"); gcyclic(3,"h"); gcyclic(3,"h"); gcyclic(3,"h"); gcyclic(3,"h"); $ ; $ ; $ $ ; $ $ $ ; help option; $ def i = 3; typeof(i); $ option(); $ option(); $ system("whoami"); $ $