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