/setxvar {
   /x exch def
} def