p74-01.eps

2 dup scale 
/depth 0 def 
/maxdepth 10 def 
/down {/depth depth 1 add def} def 
/up {/depth depth 1 sub def} def 
 
/DoLine 
{ 0 144 rlineto currentpoint 
 stroke translate 0 0 moveto} def 
 
/FractArrow 
{gsave .6 .6 scale 
 10 setlinewidth 
 down DoLine 
 depth maxdepth le 
 {135 rotate FractArrow 
 -270 rotate FractArrow} if 
 up grestore} def 
 
150 200 moveto 
FractArrow 
stroke 
showpage