*Text\PrettyPrint\WL\Core *Text\PrettyPrint\WL\Combinators>  fold (|//|) $ map text $ words "this is a long sentence with a lot of words that I can use for testing the performance of the prettier printer implementation. I need a few more words to prove my point, though."
Cat (Cat (Cat (Cat (Cat (Cat (Cat (Cat (Cat (Cat (Cat (Cat (Cat (Cat (Cat (Cat (Cat (Cat (Cat (Cat (Cat (Cat (Cat (Cat (Cat (Cat (Cat (Cat (Cat (Cat (Cat (Cat (Cat (Text 4

                      "this")

                (Cat (Union Empty

                            (Line True))

                     (Text 2

                           "is")))

           (Cat (Union Empty

                       (Line True))

                (Text 1

                      "a")))

      (Cat (Union Empty

                  (Line True))

           (Text 4

                 "long")))

 (Cat (Union Empty

             (Line True))

      (Text 8

            "sentence")))
                                                                                                                                                (Cat (Union Empty

        (Line True))

 (Text 4

       "with")))
                                                                                                                                           (Cat (Union Empty

   (Line True))
                                                                                                                                                (Text 1

  "a")))
                                                                                                                                      (Cat (Union Empty
                                                                                                                                                  (Line True))
                                                                                                                                           (Text 3
                                                                                                                                                 "lot")))
                                                                                                                                 (Cat (Union Empty
                                                                                                                                             (Line True))
                                                                                                                                      (Text 2
                                                                                                                                            "of")))
                                                                                                                            (Cat (Union Empty
                                                                                                                                        (Line True))

                                                                                                                                 (Text 5 "words")))
                                                                                                                       (Cat (Union Empty
                                                                                                                                   (Line True))
                                                                                                                            (Text 4 "that")))
                                                                                                                  (Cat (Union Empty (Line True))
                                                                                                                       (Text 1 "I")))
                                                                                                             (Cat (Union Empty (Line True))
                                                                                                                  (Text 3 "can")))
                                                                                                        (Cat (Union Empty (Line True))
                                                                                                             (Text 3 "use")))
                                                                                                   (Cat (Union Empty (Line True)) (Text 3 "for")))
                                                                                              (Cat (Union Empty (Line True)) (Text 7 "testing")))
                                                                                         (Cat (Union Empty (Line True)) (Text 3 "the")))
                                                                                    (Cat (Union Empty (Line True)) (Text 11 "performance")))
                                                                               (Cat (Union Empty (Line True)) (Text 2 "of")))
                                                                          (Cat (Union Empty (Line True)) (Text 3 "the")))
                                                                     (Cat (Union Empty (Line True)) (Text 8 "prettier")))
                                                                (Cat (Union Empty (Line True)) (Text 7 "printer")))
                                                           (Cat (Union Empty (Line True)) (Text 15 "implementation.")))
                                                      (Cat (Union Empty (Line True)) (Text 1 "I")))
                                                 (Cat (Union Empty (Line True)) (Text 4 "need")))
                                            (Cat (Union Empty (Line True)) (Text 1 "a")))
                                       (Cat (Union Empty (Line True)) (Text 3 "few")))
                                  (Cat (Union Empty (Line True)) (Text 4 "more")))
                             (Cat (Union Empty (Line True)) (Text 5 "words")))
                        (Cat (Union Empty (Line True)) (Text 2 "to")))
                   (Cat (Union Empty (Line True)) (Text 5 "prove")))
              (Cat (Union Empty (Line True)) (Text 2 "my")))
         (Cat (Union Empty (Line True)) (Text 6 "point,")))
    (Cat (Union Empty (Line True)) (Text 7 "though.")) : Doc
*Text\PrettyPrint\WL\Core *Text\PrettyPrint\WL\Combinators>