linel: 65;

declare_index_properties (U, [presubscript, presuperscript]);
U[92,235];

declare_index_properties (W, [presubscript]);
W[a];
sqrt(W[a]);
1/(1 + sqrt(W[a]));
(1 - sqrt(W[a]))/(1 + W[a]^2);

W[a][b];
W[a][b][c];
W[a][b, c];

declare_index_properties (X, [presuperscript]);
X[a];
sqrt(X[a]);
1/(1 + sqrt(X[a]));
(1 - sqrt(X[a]))/(1 + X[a]^2);

X[a][b];
X[a][b][c];
X[a][b, c];

declare_index_properties (Y, [postsuperscript]);
Y[a];
sqrt(Y[a]);
1/(1 + sqrt(Y[a]));
(1 - sqrt(Y[a]))/(1 + Y[a]^2);

Y[a][b];
Y[a][b][c];
Y[a][b, c];

declare_index_properties (Z, [postsubscript]);
Z[a];
sqrt(Z[a]);
1/(1 + sqrt(Z[a]));
(1 - sqrt(Z[a]))/(1 + Z[a]^2);

Z[a][b];
Z[a][b][c];
Z[a][b, c];

foo[a,b,c,d];
declare_index_properties (foo, [presubscript, presuperscript, postsuperscript, postsubscript]);
foo[a,b,c,d];
(foo[a,b,c,d])^n;
F(foo[a,bbb,cc,d])^n;
F(foo[aaa,bb,cc,ddd])^n;
1/(1-foo[a,b,c,d]);
foo[aa,b,c,dd]/sqrt(1 + foo[x,yy,zz,w]);
foo[a,b,c,d]+foo[w,x,y,z]+foo[1,2,3,4];
foo[aaaaa,b,c,d];
foo[a,b,c,ddddd];
foo[a,b,ccccc,d];
foo[a,bbbbb,c,d];
foo[a,b+x+1,c^2,d[k]];
bar[a,b,c,d];
declare_index_properties (bar, [presubscript, presuperscript, presubscript, presuperscript]);
bar[a,b,c,d];
(bar[a,b,c,d])^n;
F(bar[a,bbb,cc,d])^n;
F(bar[aaa,bb,cc,ddd])^n;
1/(1-bar[a,b,c,d]);
bar[aa,b,c,dd]/sqrt(1 + bar[x,yy,zz,w]);
bar[a,b,c,d]+bar[w,x,y,z]+bar[1,2,3,4];
bar[aaaaa,b,c,d];
bar[a,b,c,ddddd];
bar[a,b,ccccc,d];
bar[a,bbbbb,c,d];
bar[a,b+x+1,c^2,d[k]];
baz[a,b,c,d];
declare_index_properties (baz, [postsubscript, postsuperscript, postsubscript, postsuperscript]);
baz[a,b,c,d];
(baz[a,b,c,d])^n;
F(baz[a,bbb,cc,d])^n;
F(baz[aaa,bb,cc,ddd])^n;
1/(1-baz[a,b,c,d]);
baz[aa,b,c,dd]/sqrt(1 + baz[x,yy,zz,w]);
baz[a,b,c,d]+baz[w,x,y,z]+baz[1,2,3,4];
baz[aaaaa,b,c,d];
baz[a,b,c,ddddd];
baz[a,b,ccccc,d];
baz[a,bbbbb,c,d];
baz[a,b+x+1,c^2,d[k]];
quux[a,b,c,d];
declare_index_properties (quux, [presubscript, presubscript, postsubscript, postsubscript]);
quux[a,b,c,d];
(quux[a,b,c,d])^n;
F(quux[a,bbb,cc,d])^n;
F(quux[aaa,bb,cc,ddd])^n;
1/(1-quux[a,b,c,d]);
quux[aa,b,c,dd]/sqrt(1 + quux[x,yy,zz,w]);
quux[a,b,c,d]+quux[w,x,y,z]+quux[1,2,3,4];
quux[aaaaa,b,c,d];
quux[a,b,c,ddddd];
quux[a,b,ccccc,d];
quux[a,bbbbb,c,d];
quux[a,b+x+1,c^2,d[k]];
blart[a,b,c,d];
declare_index_properties (blart, [presuperscript, presuperscript, postsuperscript, postsuperscript]);
blart[a,b,c,d];
(blart[a,b,c,d])^n;
F(blart[a,bbb,cc,d])^n;
F(blart[aaa,bb,cc,ddd])^n;
1/(1-blart[a,b,c,d]);
blart[aa,b,c,dd]/sqrt(1 + blart[x,yy,zz,w]);
blart[a,b,c,d]+blart[w,x,y,z]+blart[1,2,3,4];
blart[aaaaa,b,c,d];
blart[a,b,c,ddddd];
blart[a,b,ccccc,d];
blart[a,bbbbb,c,d];
blart[a,b+x+1,c^2,d[k]];
