\input pictex.pictex                                                            
\input latexpic.pictex                                                          
                                                                                
This is a test of \PiCTeX\ (from TUGboat, Volume 9 (1988),                      
No. 2, page 194).                                                               
\vskip .5in                                                                     
\font\myeightpt=cmr8                                                            
                                                                                
\tracingstats=1                                                                 
                                                                                
\beginpicture                                                                   
\setcoordinatesystem units <.02in,.4in>                                         
\multiput {$\scriptstyle\circ$} at                                              
   1 4.1576    2 3.6378    3 3.3602                                             
   4 3.1652    5 3.0183    6 2.9227                                             
%** rest of data **                                                             
  95 1.0000   96 1.0000   97 1.1761                                             
  98 0.8451   99 0.8451  100 0.6990 /                                           
\put {$\longleftarrow                                                           
  \vcenter{\hsize=100pt \raggedright                                            
% \eightpoint \noindent                                                         
  \myeightpt  \noindent                                                         
  Shakespeare used 14,376 words exactly                                         
% once.}$} [1] <4pt,0pt> at 1 4.1576                                            
  once.}$} [1] <64pt,0pt> at 1 4.1576                                           
\setplotarea x from 0 to 100,                                                   
   y from 0 to 4.301                                                            
\axis bottom                                                                    
  label {Frequency $n$ of usage}                                                
  ticks numbered from 0 to 100 by 20                                            
        short unlabeled quantity 11 /                                           
\axis left shiftedto x=-5                                                       
  label {\stack                                                                 
    {N,u,m,b,e,r,,,o,f,,,w,o,r,d,s}}                                            
  ticks logged                                                                  
    numbered at 1 10 100 1000 10000 /                                           
    unlabeled short from 2 to 9 by 1                                            
      from 20 to 90 by 10                                                       
      from 200 to 900 by 100                                                    
      from 2000 to 9000 by 1000                                                 
      at 20000 / /                                                              
\endpicture                                                                     
                                                                                
\end