load_package tri ;

fluid '(puretex) ;

algebraic procedure tex(s);
begin share r ;
  lisp texpri(s,nil,'first);
  %lisp compress mapcan(texstack!*,'explode);
  %lisp compress ('!". mapcan(texstack!*,'explode));
  r:=lisp bldmsg texstack!* ; 
  return r;
end;

;end;