T=GTTKN()
[Get Token.]
(1) T=(); C=CREADB();
while C~=' '&C~='.'&C~=','&C~=')' do {
T=comp(C,T); C=CREAD() };
T=inv(T); return..