\START92\
\COMMENT=
\NAME=getvars
\FILE=GETVARS.89F
(expres)
Func
\(C)\expres:Func
Local l1,l2,i1,s1,t1,t2
exact(\pi\)\->\t1
\alpha\\alpha\\alpha\\->\t2
If getType(expres)=getType(t2) Then 
Return {expres}
ElseIf getType(expres)=getType(t1) Then 
If part(expres)=0 Then 
If left(string(expres),1)="@":Return {expres}
EndIf
If part(expres)=1 Then 
getvars(part(expres,1))\->\l1
Return l1
EndIf
getvars(part(expres,1))\->\l1
getvars(part(expres,2))\->\l2
string(l1)\->\s1
For i1,1,dim(l2)
If inString(s1,string(l2[i1]))=0
l2[i1]\->\l1[dim(l1)+1]
EndFor
Return l1
EndIf
Return {}
EndFunc
\STOP92\