/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