/chargetexlabel { /n@m_du_l@bel exch def /label n@m_du_l@bel cvx def (dim_) n@m_du_l@bel chaine cvs append cvx exec } def