/setwidth {
   /width exch def
} def