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
19