1 /build_14 {
2     pop
3     /optsize ptsize def
4     /osize size def
5     /ofont font def
6 
7     optsize 2 div dup R exch R f
8     0 size 2 mul 3 div dup neg exch 0 exch rmoveto
9 
10     (1) show
11     rmoveto
12     optsize R f
13     (\244) show
14     f
15     (4) show
16 
17     optsize ofont f
18 } def