/exposant {
   0 .4 fontsize mul rmoveto
   currentfont .7 scalefont setfont
   show
   currentfont 1 .7 div scalefont setfont
   0 .4 neg fontsize mul rmoveto
} def