%%% The mouse's tale and Alice's tail

This emblematic proza by Lewis Carroll is typeset in PostScript by the use of
{\tt forall}, which expects an array, enclosed by [ ], and a procedure enclosed
by $\{\;\}$ on the stack. The array contains a necklage of strings, each
enclosed by ( ), which holds the WYSIWYG data. The procedure scales and
typesets the lines. No explicit positioning by coordinates on the page nor
controlling of the loop is needed. I started with PS' {\tt pathforall}, worked
on it for 15-30min, when the direct method popped up.

\begingroup
\vbox to0pt\bgroup
	\hbox to\hsize\bgroup
		\hss
		\pdfximage cropbox{2010/kees-van-der-laan/mouse.pdf}%
		\pdfrefximage\pdflastximage
	\egroup
\egroup
\nointerlineskip
\font\tt=qx-lmtt8 \baselineskip9pt
\beginverbatim
%!!PS-Mouse  tail cgl feb 2010
%%BoundingBox: 0 0 144 770
/Times-Bold findfont 12 scalefont setfont
/crlf { .995 dup scale 
         currentpoint 12 sub exch pop 10 exch moveto } def
10 770 moveto
[ (Fury said to) 
  (  a mouse, That)
  (                 he met)
  (                  in the )
  (                    house,)
  (                   `Let us)
  (                both go)
  (             to law:)
  (         I will)
  (    prosecute)
  (  you.)
  (   Come, I'll)
  (       take no)
  (           denial;)
  (                 We must)
  (                          have a)
  (                                  trial:)
  (                                       For)
  (                                 really)
  (                              this)
  (                               morning)
  (                                       I 've)
  (                               nothing)  
  (                           to do.')  
  (                   Said the) 
  (              mouse to)
  (             the cur,)
  (             `Such a)
  (                     trial,)
  (              dear sir,)
  (        With no)  
  (    jury or)
  (  judge,) 
  (   would be)
  (         wasting)
  (             our breath.')   
  (                 `I'll be)
  (                 judge)
  (             I'll be)
  (          jury,')  
  (         Said)
  (             cunning)
  (                 old Fury:)  
  (                     `I'll try)
  (                        the whole)
  (                                    cause,)
  (                                    and)
  (                              condemn)
  (                                  you)
  (                                      to)
  (                                       death.')]                 
{show crlf}
forall 
showpage
%%EOF
\endverbatim
\endgroup

\endinput