🚀 go-pugleaf

this piece does parts of it, not very nicely though

%!PS-Adobe-1.0

/ListFonts
{ 7 dict begin
    /FontForName {/Times-Roman findfont 10 scalefont setfont} def

    /Mh 20 def
    /Mv 0 def
    /Minc 15 def
    /Mind 30 def

    Mh Mv Minc add moveto
    /Times-Bold findfont 10 scalefont setfont
    (Font List:) show

    Mh Mv moveto
      FontForName

    FontDirectory {
      pop dup
      FontForName
      Mind 0 rmoveto
      50 string cvs show
      ( :" ) show 
      findfont 12 scalefont setfont
      (Sweet home Alabama) show
      FontForName
      (") show
      /Mv Mv Minc sub def
      Mh Mv moveto } forall
  end % local dict
} def
--
ORIGIN  '~jnp/stdDisclaimers';
[[--- Regards, J|rgen N|rgaard ('|' is '\o{}' in \LaTeX{})                    |
|      e-mail: jnp@tele.nokia.fi  || Telephone: +358-0-511-5671               |
|         mail: Nokia Telecommunications, PL 33, SF-02601 Espoo Finland   ---]]