#defn  Toksep(__X__)       #ATOM#CMPLX;toksep;
#defn  Cat(_X_,*)          #ATOM#CMPLX;#GENCODE $$$*$$$ #ATCMLIST;cat; #ENDGEN
#defn  Justleft(_X_,_V_)   {" "};#ATOM#CMPLX;#ATOM#CMPLX;padright;