%!

[
       [
               (Hello World)
               ]
       ]

/NewCenturySchlbk-Roman findfont 12 scalefont setfont
2 setgray
{
       0 738 moveto {
               84 currentpoint exch pop 15 sub moveto {
                       ( ) search
                               { exch pop false }
                               { () exch true }
                       ifelse
                       1 index stringwidth pop dup 0 gt exch
                       currentpoint pop add 558 gt and {
                               54 currentpoint exch pop
                               15 sub
                               moveto }
                       if
                       exch show ( ) show {
                               exit }
                       if }
               loop
               pop }
       forall
       showpage }
forall