(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/srfi/159/columnar#string-split-words
    (lambda (_str1023_ _separator?1024_)
      (let ((_start1026_ (std/srfi/130#string-cursor-start _str1023_))
            (_end1027_ (string-length _str1023_)))
        (let _lp1029_ ((_sc1031_ _start1026_) (_res1032_ '()))
          (if (>= _sc1031_ _end1027_)
              (reverse _res1032_)
              (let ((_sc21034_
                     (std/srfi/130#string-index__1
                      _str1023_
                      _separator?1024_
                      _sc1031_)))
                (_lp1029_
                 (std/srfi/130#string-cursor-next _str1023_ _sc21034_)
                 (if (= _sc1031_ _sc21034_)
                     _res1032_
                     (cons (std/srfi/130#substring/cursors
                            _str1023_
                            _sc1031_
                            _sc21034_)
                           _res1032_)))))))))
  (define std/srfi/159/columnar#call-with-output-generator
    (lambda (_producer947_ _consumer948_)
      (lambda (_st950_)
        (let ()
          ((let ()
             (std/srfi/159/base#displayed
              (let ((_out955_ (open-output-string))
                    (_queue956_ (std/srfi/117#list-queue))
                    (_return957_ '#f)
                    (_resume958_ '#f))
                (letrec* ((_eof960_ (read-char (open-input-string '"")))
                          (_output*961_
                           (lambda (_str999_)
                             (lambda (_st1001_)
                               (let ((_row1004_
                                      (##structure-ref
                                       _st1001_
                                       '2
                                       std/srfi/159/base#Show-Env
                                       '#f))
                                     (_col1005_
                                      (##structure-ref
                                       _st1001_
                                       '3
                                       std/srfi/159/base#Show-Env
                                       '#f))
                                     (_string-width1006_
                                      (##structure-ref
                                       _st1001_
                                       '10
                                       std/srfi/159/base#Show-Env
                                       '#f)))
                                 ((let ()
                                    (std/srfi/117#list-queue-add-back!
                                     _queue956_
                                     _str999_)
                                    (std/srfi/159/base#each
                                     (let ((_nl-index1011_
                                            (std/srfi/130#string-index-right__0
                                             _str999_
                                             (lambda (_ch1009_)
                                               (eqv? _ch1009_ '#\newline)))))
                                       (if (> _nl-index1011_
                                              (std/srfi/130#string-cursor-start
                                               _str999_))
                                           (lambda (_st1013_)
                                             (std/srfi/159/base#_%tell1752_
                                              _st1013_
                                              'row
                                              (+ _row1004_
                                                 (std/srfi/13#string-count__0
                                                  _str999_
                                                  (lambda (_ch1016_)
                                                    (eqv? _ch1016_
                                                          '#\newline)))))
                                             (std/srfi/159/base#_%tell1752_
                                              _st1013_
                                              'col
                                              (_string-width1006_
                                               _str999_
                                               (std/srfi/130#string-cursor->index
                                                _str999_
                                                _nl-index1011_)))
                                             _st1013_)
                                           (lambda (_st1018_)
                                             (std/srfi/159/base#_%tell1752_
                                              _st1018_
                                              'col
                                              (+ _col1005_
                                                 (_string-width1006_
                                                  _str999_)))
                                             _st1018_)))
                                     (call-with-current-continuation
                                      (lambda (_cc1021_)
                                        (set! _resume958_ _cc1021_)
                                        (_return957_
                                         std/srfi/159/base#nothing))))
                                    (std/srfi/159/base#displayed
                                     std/srfi/159/base#nothing))
                                  _st1001_)))))
                          (_generate962_
                           (lambda ()
                             (if (and _resume958_
                                      (std/srfi/117#list-queue-empty?
                                       _queue956_))
                                 (call-with-current-continuation
                                  (lambda (_cc997_)
                                    (set! _return957_ _cc997_)
                                    (_resume958_ std/srfi/159/base#nothing)))
                                 '#!void)
                             (if (std/srfi/117#list-queue-empty? _queue956_)
                                 _eof960_
                                 (std/srfi/117#list-queue-remove-front!
                                  _queue956_)))))
                  (lambda (_st964_)
                    ((lambda (_st967_)
                       (let ()
                         ((let ()
                            (std/srfi/159/base#displayed
                             (lambda (_st972_)
                               (let ((_tmp975_
                                      (##structure-ref
                                       _st972_
                                       '1
                                       std/srfi/159/base#Show-Env
                                       '#f))
                                     (_tmp977_
                                      (std/srfi/159/base#_%ask411_
                                       _st972_
                                       'output)))
                                 (dynamic-wind
                                  (lambda ()
                                    (##structure-set!
                                     _st972_
                                     _out955_
                                     '1
                                     std/srfi/159/base#Show-Env
                                     '#f)
                                    (std/srfi/159/base#_%tell1752_
                                     _st972_
                                     'output
                                     _output*961_))
                                  (lambda ()
                                    ((std/srfi/159/base#each
                                      (call-with-current-continuation
                                       (lambda (_cc982_)
                                         (set! _return957_ _cc982_)
                                         (std/srfi/159/base#each
                                          _producer947_
                                          (lambda (_st984_)
                                            (let ((_output987_
                                                   (std/srfi/159/base#_%ask411_
                                                    _st984_
                                                    'output)))
                                              ((let ()
                                                 (set! _resume958_ '#f)
                                                 (std/srfi/159/base#displayed
                                                  (lambda (_st990_)
                                                    (let ()
                                                      ((let ()
                                                         (_return957_
                                                          std/srfi/159/base#nothing)
                                                         (std/srfi/159/base#displayed
                                                          std/srfi/159/base#nothing))
                                                       _st990_)))))
                                               _st984_)))))))
                                     _st972_))
                                  (lambda ()
                                    (##structure-set!
                                     _st972_
                                     _tmp975_
                                     '1
                                     std/srfi/159/base#Show-Env
                                     '#f)
                                    (std/srfi/159/base#_%tell1752_
                                     _st972_
                                     'output
                                     _tmp977_)))))))
                          _st967_)))
                     (std/srfi/159/base#_c3341_ _st964_))
                    ((_consumer948_ _generate962_) _st964_))))))
           _st950_)))))
  (define std/srfi/159/columnar#call-with-output-generators
    (lambda (_producers937_ _consumer938_)
      (let _lp940_ ((_ls942_ _producers937_) (_generators943_ '()))
        (if (null? _ls942_)
            (_consumer938_ (reverse _generators943_))
            (std/srfi/159/columnar#call-with-output-generator
             (car _ls942_)
             (lambda (_generator945_)
               (_lp940_ (cdr _ls942_)
                        (cons _generator945_ _generators943_))))))))
  (define std/srfi/159/columnar#string->line-generator
    (lambda (_source913_)
      (let ((_str915_ '()) (_scanned?916_ '#f))
        (letrec ((_gen918_
                  (lambda ()
                    (if (pair? _str915_)
                        (if _scanned?916_
                            (let ((_res921_ (_source913_)))
                              (if (eof-object? _res921_)
                                  (let ((_res923_
                                         (std/srfi/13#string-concatenate
                                          (reverse _str915_))))
                                    (set! _str915_ '())
                                    _res923_)
                                  (if (equal? _res921_ '"")
                                      (_gen918_)
                                      (begin
                                        (set! _str915_
                                              (cons _res921_ _str915_))
                                        (set! _scanned?916_ '#f)
                                        (_gen918_)))))
                            (let ((_nl925_ (std/srfi/130#string-index__0
                                            (car _str915_)
                                            '#\newline))
                                  (_end926_ (string-length (car _str915_))))
                              (if (< _nl925_ _end926_)
                                  (let* ((_left928_
                                          (std/srfi/130#substring/cursors
                                           (car _str915_)
                                           (std/srfi/130#string-cursor-start
                                            (car _str915_))
                                           _nl925_))
                                         (_right930_
                                          (std/srfi/130#substring/cursors
                                           (car _str915_)
                                           (std/srfi/130#string-cursor-next
                                            (car _str915_)
                                            _nl925_)
                                           _end926_))
                                         (_res932_
                                          (std/srfi/13#string-concatenate
                                           (reverse (cons _left928_
                                                          (cdr _str915_))))))
                                    (set! _str915_
                                          (if (equal? _right930_ '"")
                                              '()
                                              (list _right930_)))
                                    _res932_)
                                  (begin
                                    (set! _scanned?916_ '#t)
                                    (_gen918_)))))
                        (let ((_res935_ (_source913_)))
                          (if (eof-object? _res935_)
                              _res935_
                              (if (equal? _res935_ '"")
                                  (_gen918_)
                                  (begin
                                    (set! _str915_ (cons _res935_ _str915_))
                                    (set! _scanned?916_ '#f)
                                    (_gen918_)))))))))
          _gen918_))))
  (define std/srfi/159/columnar#Column
    (make-struct-type
     'std/srfi/159/columnar#Column
     '#f
     '3
     'Column
     '((fields: format generate infinite?))
     '#f))
  (define std/srfi/159/columnar#column?
    (make-struct-predicate std/srfi/159/columnar#Column))
  (define std/srfi/159/columnar#column-format
    (make-struct-field-accessor std/srfi/159/columnar#Column '0))
  (define std/srfi/159/columnar#column-generate
    (make-struct-field-accessor std/srfi/159/columnar#Column '1))
  (define std/srfi/159/columnar#column-infinite?
    (make-struct-field-accessor std/srfi/159/columnar#Column '2))
  (define std/srfi/159/columnar#make-column
    (lambda (_format909_ _generate910_ _infinite?911_)
      (make-struct-instance
       std/srfi/159/columnar#Column
       _format909_
       _generate910_
       _infinite?911_)))
  (define std/srfi/159/columnar#show-columns
    (lambda _ls870_
      (lambda (_st872_)
        (let ()
          ((let ()
             (std/srfi/159/base#displayed
              (let* ((_cols882_
                      (map (lambda (_x877_)
                             (let ((__tmp4636
                                    (let ((_$e879_ (car _x877_)))
                                      (if _$e879_
                                          _$e879_
                                          std/srfi/159/base#displayed)))
                                   (__tmp4635
                                    (std/srfi/159/base#displayed
                                     (cadr _x877_)))
                                   (__tmp4634
                                    (if (pair? (cddr _x877_))
                                        (car (cddr _x877_))
                                        '#f)))
                               (declare (not safe))
                               (##structure
                                std/srfi/159/columnar#Column
                                __tmp4636
                                __tmp4635
                                __tmp4634)))
                           _ls870_))
                     (_num-infinite884_
                      (std/srfi/1#count
                       std/srfi/159/columnar#column-infinite?
                       _cols882_)))
                (std/srfi/159/columnar#call-with-output-generators
                 (map std/srfi/159/columnar#column-generate _cols882_)
                 (lambda (_gens887_)
                   (let ((_gens889_
                          (map std/srfi/159/columnar#string->line-generator
                               _gens887_)))
                     (let _lp891_ ()
                       (let* ((_lines896_
                               (map (lambda (_gen894_) (_gen894_)) _gens889_))
                              (_num-present898_
                               (std/srfi/1#count string? _lines896_)))
                         (if (<= _num-present898_ _num-infinite884_)
                             std/srfi/159/base#nothing
                             (std/srfi/159/base#each
                              (std/srfi/159/base#each-in-list
                               (std/srfi/1#map2
                                (lambda (_col901_ _line902_)
                                  ((##structure-ref
                                    _col901_
                                    '1
                                    std/srfi/159/columnar#Column
                                    '#f)
                                   (if (eof-object? _line902_) '"" _line902_)))
                                _cols882_
                                _lines896_))
                              '"\n"
                              (lambda (_st904_)
                                (let ()
                                  ((let ()
                                     (std/srfi/159/base#displayed (_lp891_)))
                                   _st904_)))))))))))))
           _st872_)))))
  (define std/srfi/159/columnar#columnar
    (lambda _ls693_
      (letrec ((_proportional-width?695_
                (lambda (_w865_)
                  (if (number? _w865_)
                      (let ((_$e867_ (< '0 _w865_ '1)))
                        (if _$e867_
                            _$e867_
                            (if (inexact? _w865_) (= _w865_ '1.) '#f)))
                      '#f)))
               (_build-column696_
                (lambda (_ls733_)
                  (let ((_rest735_ _ls733_))
                    (call-with-values
                     (lambda ()
                       (if (null? _rest735_)
                           (values '#f '())
                           (values (car _rest735_) (cdr _rest735_))))
                     (lambda (_fixed-width739_ _rest740_)
                       (if '#t
                           (call-with-values
                            (lambda ()
                              (if (null? _rest740_)
                                  (values '#f '())
                                  (values (car _rest740_) (cdr _rest740_))))
                            (lambda (_col-width744_ _rest745_)
                              (if '#t
                                  (call-with-values
                                   (lambda ()
                                     (if (null? _rest745_)
                                         (values '#t '())
                                         (values (car _rest745_)
                                                 (cdr _rest745_))))
                                   (lambda (_last?749_ _rest750_)
                                     (if '#t
                                         (call-with-values
                                          (lambda ()
                                            (if (null? _rest750_)
                                                (values '() '())
                                                (values (car _rest750_)
                                                        (cdr _rest750_))))
                                          (lambda (_tail754_ _rest755_)
                                            (if '#t
                                                (call-with-values
                                                 (lambda ()
                                                   (if (null? _rest755_)
                                                       (values '#f '())
                                                       (values (car _rest755_)
                                                               (cdr _rest755_))))
                                                 (lambda (_gen759_ _rest760_)
                                                   (if '#t
                                                       (call-with-values
                                                        (lambda ()
                                                          (if (null? _rest760_)
                                                              (values '() '())
                                                              (values (car _rest760_)
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                              (cdr _rest760_))))
                (lambda (_prefix764_ _rest765_)
                  (if '#t
                      (call-with-values
                       (lambda ()
                         (if (null? _rest765_)
                             (values 'left '())
                             (values (car _rest765_) (cdr _rest765_))))
                       (lambda (_align769_ _rest770_)
                         (if '#t
                             (call-with-values
                              (lambda ()
                                (if (null? _rest770_)
                                    (values '#f '())
                                    (values (car _rest770_) (cdr _rest770_))))
                              (lambda (_infinite?774_ _rest775_)
                                (if '#t
                                    (if (null? _rest775_)
                                        (let ()
                                          (letrec ((_scale-width779_
                                                    (lambda (_width863_)
                                                      (max '1
                                                           (exact (truncate
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (* _col-width744_
                              (- _width863_ _fixed-width739_)))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (_padder780_
                                                    (lambda ()
                                                      (if (_proportional-width?695_
                                                           _col-width744_)
                                                          (let ((_$e827_ _align769_))
                                                            (if (eq? 'right
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                             _$e827_)
                        (lambda (_str830_)
                          (lambda (_st832_)
                            (let ((_width835_
                                   (##structure-ref
                                    _st832_
                                    '4
                                    std/srfi/159/base#Show-Env
                                    '#f)))
                              ((let ()
                                 (std/srfi/159/base#displayed
                                  (std/srfi/159/show#padded/left
                                   (_scale-width779_ _width835_)
                                   _str830_)))
                               _st832_))))
                        (if (eq? 'center _$e827_)
                            (lambda (_str838_)
                              (lambda (_st840_)
                                (let ((_width843_
                                       (##structure-ref
                                        _st840_
                                        '4
                                        std/srfi/159/base#Show-Env
                                        '#f)))
                                  ((let ()
                                     (std/srfi/159/base#displayed
                                      (std/srfi/159/show#padded/both
                                       (_scale-width779_ _width843_)
                                       _str838_)))
                                   _st840_))))
                            (lambda (_str846_)
                              (lambda (_st848_)
                                (let ((_width851_
                                       (##structure-ref
                                        _st848_
                                        '4
                                        std/srfi/159/base#Show-Env
                                        '#f)))
                                  ((let ()
                                     (std/srfi/159/base#displayed
                                      (std/srfi/159/show#padded/right
                                       (_scale-width779_ _width851_)
                                       _str846_)))
                                   _st848_)))))))
                  (let ((_$e854_ _align769_))
                    (if (eq? 'right _$e854_)
                        (lambda (_str857_)
                          (std/srfi/159/show#padded/left
                           _col-width744_
                           _str857_))
                        (if (eq? 'center _$e854_)
                            (lambda (_str859_)
                              (std/srfi/159/show#padded/both
                               _col-width744_
                               _str859_))
                            (lambda (_str861_)
                              (std/srfi/159/show#padded/right
                               _col-width744_
                               _str861_))))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (_affix781_
                                                    (lambda (_x820_)
                                                      (if (pair? _tail754_)
                                                          (lambda (_str822_)
                                                            (std/srfi/159/base#each
                                                             (std/srfi/159/base#each-in-list
                                                              _prefix764_)
                                                             (_x820_ _str822_)
                                                             (std/srfi/159/base#each-in-list
                                                              _tail754_)))
                                                          (if (pair? _prefix764_)
                                                              (lambda (_str824_)
                                                                (std/srfi/159/base#each
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (std/srfi/159/base#each-in-list _prefix764_)
                         (_x820_ _str824_)))
                      (std/srfi/159/base#displayed _x820_))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                            (list (_affix781_
                                                   (let ((_pad783_
                                                          (_padder780_)))
                                                     (if (and _last?749_
                                                              (not (pair? _tail754_))
                                                              (eq? _align769_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           'left))
                 (lambda (_str785_)
                   (lambda (_st787_)
                     (let ((_pad-char790_
                            (##structure-ref
                             _st787_
                             '7
                             std/srfi/159/base#Show-Env
                             '#f)))
                       ((let ()
                          (std/srfi/159/base#displayed
                           ((if (or (not _pad-char790_)
                                    (char-whitespace? _pad-char790_))
                                std/srfi/159/base#displayed
                                _pad783_)
                            _str785_)))
                        _st787_))))
                 _pad783_)))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  (if (_proportional-width?695_
                                                       _col-width744_)
                                                      (lambda (_st796_)
                                                        (let ((_width799_
                                                               (##structure-ref
                                                                _st796_
                                                                '4
                                                                std/srfi/159/base#Show-Env
                                                                '#f)))
                                                          ((let ()
                                                             (std/srfi/159/base#displayed
                                                              (lambda (_st802_)
                                                                (let ((_tmp805_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                               (std/srfi/159/base#_%ask411_ _st802_ 'width)))
                          (dynamic-wind
                           (lambda ()
                             (std/srfi/159/base#_%tell1752_
                              _st802_
                              'width
                              (_scale-width779_ _width799_)))
                           (lambda ()
                             ((std/srfi/159/base#each _gen759_) _st802_))
                           (lambda ()
                             (std/srfi/159/base#_%tell1752_
                              _st802_
                              'width
                              _tmp805_)))))))
                   _st796_)))
              (lambda (_st811_)
                (let ((_tmp814_
                       (##structure-ref
                        _st811_
                        '4
                        std/srfi/159/base#Show-Env
                        '#f)))
                  (dynamic-wind
                   (lambda ()
                     (##structure-set!
                      _st811_
                      _col-width744_
                      '4
                      std/srfi/159/base#Show-Env
                      '#f))
                   (lambda () ((std/srfi/159/base#each _gen759_) _st811_))
                   (lambda ()
                     (##structure-set!
                      _st811_
                      _tmp814_
                      '4
                      std/srfi/159/base#Show-Env
                      '#f))))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                  _infinite?774_)))
                                        (error '"Too many optional arguments."
                                               _rest775_))
                                    (error '"argument out of domain"
                                           _infinite?774_))))
                             (error '"argument out of domain" _align769_))))
                      (error '"argument out of domain" _prefix764_))))
               (error '"argument out of domain" _gen759_))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                (error '"argument out of domain"
                                                       _tail754_))))
                                         (error '"argument out of domain"
                                                _last?749_))))
                                  (error '"argument out of domain"
                                         _col-width744_))))
                           (error '"argument out of domain"
                                  _fixed-width739_)))))))
               (_adjust-widths697_
                (lambda (_ls713_ _border-width714_)
                  (let* ((_fixed-ls718_
                          (filter (lambda (_x716_)
                                    (if (number? (car _x716_))
                                        (>= (car _x716_) '1)
                                        '#f))
                                  _ls713_))
                         (_fixed-total720_
                          (foldl1 + _border-width714_ (map car _fixed-ls718_)))
                         (_scaled-ls724_
                          (filter (lambda (_x722_)
                                    (_proportional-width?695_ (car _x722_)))
                                  _ls713_))
                         (_denom726_
                          (- (length _ls713_)
                             (+ (length _fixed-ls718_)
                                (length _scaled-ls724_))))
                         (_rest728_
                          (if (zero? _denom726_)
                              '0
                              (inexact (/ (- '1
                                             (foldl1 +
                                                     '0
                                                     (map car _scaled-ls724_)))
                                          _denom726_)))))
                    (if (negative? _rest728_)
                        (error '"fractional widths must sum to less than 1"
                               (map car _scaled-ls724_))
                        '#!void)
                    (map (lambda (_col731_)
                           (cons _fixed-total720_
                                 (if (not (number? (car _col731_)))
                                     (cons _rest728_ (cdr _col731_))
                                     _col731_)))
                         _ls713_))))
               (_finish698_
                (lambda (_ls710_ _border-width711_)
                  (apply std/srfi/159/columnar#show-columns
                         (map _build-column696_
                              (_adjust-widths697_
                               (reverse _ls710_)
                               _border-width711_))))))
        (let _lp700_ ((_ls702_ _ls693_)
                      (_strs703_ '())
                      (_align704_ 'left)
                      (_infinite?705_ '#f)
                      (_width706_ '#t)
                      (_border-width707_ '0)
                      (_res708_ '()))
          (if (null? _ls702_)
              (if (pair? _strs703_)
                  (_finish698_
                   (cons (cons (caar _res708_)
                               (cons '#t
                                     (cons (append (reverse _strs703_)
                                                   (cadr (cdar _res708_)))
                                           (cddr (cdar _res708_)))))
                         (cdr _res708_))
                   _border-width707_)
                  (_finish698_
                   (cons (cons (caar _res708_)
                               (cons '#t (cddr (car _res708_))))
                         (cdr _res708_))
                   _border-width707_))
              (if (char? (car _ls702_))
                  (_lp700_ (cons (string (car _ls702_)) (cdr _ls702_))
                           _strs703_
                           _align704_
                           _infinite?705_
                           _width706_
                           _border-width707_
                           _res708_)
                  (if (string? (car _ls702_))
                      (if (std/srfi/13#string-contains__0 '"\n" (car _ls702_))
                          (error '"column string literals can't contain newlines")
                          (_lp700_ (cdr _ls702_)
                                   (cons (car _ls702_) _strs703_)
                                   _align704_
                                   _infinite?705_
                                   _width706_
                                   (+ _border-width707_
                                      (string-length (car _ls702_)))
                                   _res708_))
                      (if (number? (car _ls702_))
                          (_lp700_ (cdr _ls702_)
                                   _strs703_
                                   _align704_
                                   _infinite?705_
                                   (car _ls702_)
                                   _border-width707_
                                   _res708_)
                          (if (eq? (car _ls702_) 'infinite)
                              (_lp700_ (cdr _ls702_)
                                       _strs703_
                                       _align704_
                                       '#t
                                       _width706_
                                       _border-width707_
                                       _res708_)
                              (if (symbol? (car _ls702_))
                                  (_lp700_ (cdr _ls702_)
                                           _strs703_
                                           (car _ls702_)
                                           _infinite?705_
                                           _width706_
                                           _border-width707_
                                           _res708_)
                                  (if (procedure? (car _ls702_))
                                      (_lp700_ (cdr _ls702_)
                                               '()
                                               'left
                                               '#f
                                               '#t
                                               _border-width707_
                                               (cons (list _width706_
                                                           '#f
                                                           '()
                                                           (car _ls702_)
                                                           (reverse _strs703_)
                                                           _align704_
                                                           _infinite?705_)
                                                     _res708_))
                                      (error '"invalid column"
                                             (car _ls702_)))))))))))))
  (define std/srfi/159/columnar#max-line-width
    (lambda (_string-width681_ _str682_)
      (let ((_end684_ (string-length _str682_)))
        (let _lp686_ ((_i688_ (std/srfi/130#string-cursor-start _str682_))
                      (_hi689_ '0))
          (let ((_j691_ (std/srfi/130#string-index__1
                         _str682_
                         '#\newline
                         _i688_)))
            (if (< _j691_ _end684_)
                (_lp686_ (std/srfi/130#string-cursor-next _str682_ _j691_)
                         (max _hi689_
                              (_string-width681_
                               (std/srfi/130#substring/cursors
                                _str682_
                                _i688_
                                _j691_))))
                (max _hi689_
                     (_string-width681_
                      (std/srfi/130#substring/cursors
                       _str682_
                       _i688_
                       _end684_)))))))))
  (define std/srfi/159/columnar#pad-finite
    (lambda (_proc669_ _width670_ _string-width671_ _k672_)
      (std/srfi/159/base#call-with-output
       _proc669_
       (lambda (_str674_)
         (let ((_w679_ (std/srfi/159/columnar#max-line-width
                        (let ((_$e676_ _string-width671_))
                          (if _$e676_ _$e676_ string-length))
                        _str674_)))
           (_k672_ (std/srfi/159/base#displayed _str674_)
                   (if (and (integer? _width670_) (exact? _width670_))
                       (max _width670_ _w679_)
                       _w679_)))))))
  (define std/srfi/159/columnar#tabular
    (lambda _ls651_
      (lambda (_st653_)
        (let ((_string-width656_
               (##structure-ref _st653_ '10 std/srfi/159/base#Show-Env '#f)))
          ((let ()
             (std/srfi/159/base#displayed
              (let _lp659_ ((_ls661_ _ls651_)
                            (_infinite?662_ '#f)
                            (_width663_ '#t)
                            (_res664_ '()))
                (if (null? _ls661_)
                    (apply std/srfi/159/columnar#columnar (reverse _res664_))
                    (if (number? (car _ls661_))
                        (_lp659_ (cdr _ls661_)
                                 _infinite?662_
                                 (car _ls661_)
                                 _res664_)
                        (if (eq? 'infinite (car _ls661_))
                            (_lp659_ (cdr _ls661_)
                                     '#t
                                     _width663_
                                     (cons (car _ls661_) _res664_))
                            (if (procedure? (car _ls661_))
                                (if _infinite?662_
                                    (if _width663_
                                        (_lp659_ (cdr _ls661_)
                                                 '#f
                                                 '#t
                                                 (cons (car _ls661_)
                                                       (cons _width663_
                                                             _res664_)))
                                        (_lp659_ (cdr _ls661_)
                                                 '#f
                                                 '#t
                                                 (cons (car _ls661_)
                                                       _res664_)))
                                    (std/srfi/159/columnar#pad-finite
                                     (car _ls661_)
                                     _width663_
                                     _string-width656_
                                     (lambda (_gen666_ _width667_)
                                       (_lp659_ (cdr _ls661_)
                                                '#f
                                                '#t
                                                (cons _gen666_
                                                      (cons _width667_
                                                            _res664_))))))
                                (_lp659_ (cdr _ls661_)
                                         _infinite?662_
                                         _width663_
                                         (cons (car _ls661_) _res664_)))))))))
           _st653_)))))
  (define std/srfi/159/columnar#wrapped/char
    (lambda _ls588_
      (lambda (_st590_)
        (let ((_output593_ (std/srfi/159/base#_%ask411_ _st590_ 'output))
              (_width594_
               (##structure-ref _st590_ '4 std/srfi/159/base#Show-Env '#f))
              (_string-width595_
               (##structure-ref _st590_ '10 std/srfi/159/base#Show-Env '#f)))
          ((let ()
             (letrec ((_kons-in-line598_
                       (lambda (_str629_)
                         (lambda (_st631_)
                           (let ((_col634_
                                  (##structure-ref
                                   _st631_
                                   '3
                                   std/srfi/159/base#Show-Env
                                   '#f)))
                             ((let ()
                                (std/srfi/159/base#displayed
                                 (let ((_len640_
                                        ((let ((_$e637_ _string-width595_))
                                           (if _$e637_ _$e637_ string-length))
                                         _str629_))
                                       (_space641_ (- _width594_ _col634_)))
                                   (if (equal? '"" _str629_)
                                       std/srfi/159/base#nothing
                                       (if (or (<= _len640_ _space641_)
                                               (not (positive? _space641_)))
                                           (std/srfi/159/base#each
                                            (_output593_ _str629_)
                                            (_output593_ '"\n"))
                                           (std/srfi/159/base#each
                                            (_output593_
                                             (substring
                                              _str629_
                                              '0
                                              _space641_))
                                            (_output593_ '"\n")
                                            (lambda (_st646_)
                                              (let ()
                                                ((let ()
                                                   (std/srfi/159/base#displayed
                                                    (_kons-in-line598_
                                                     (substring
                                                      _str629_
                                                      _space641_
                                                      _len640_))))
                                                 _st646_)))))))))
                              _st631_))))))
               (std/srfi/159/base#displayed
                (lambda (_st600_)
                  (let ((_tmp603_
                         (std/srfi/159/base#_%ask411_ _st600_ 'output)))
                    (dynamic-wind
                     (lambda ()
                       (std/srfi/159/base#_%tell1752_
                        _st600_
                        'output
                        (lambda (_str607_)
                          (let ((_end609_ (string-length _str607_)))
                            (let _lp611_ ((_i613_ (std/srfi/130#string-cursor-start
                                                   _str607_)))
                              (let ((_nli615_
                                     (std/srfi/130#string-index__1
                                      _str607_
                                      '#\newline
                                      _i613_)))
                                (if (>= _i613_ _end609_)
                                    std/srfi/159/base#nothing
                                    (if (>= _nli615_ _end609_)
                                        (_kons-in-line598_
                                         (std/srfi/130#substring/cursors
                                          _str607_
                                          _i613_
                                          _end609_))
                                        (std/srfi/159/base#each
                                         (lambda (_st617_)
                                           (let ()
                                             ((let ()
                                                (std/srfi/159/base#displayed
                                                 (_kons-in-line598_
                                                  (std/srfi/130#substring/cursors
                                                   _str607_
                                                   _i613_
                                                   _nli615_))))
                                              _st617_)))
                                         (lambda (_st622_)
                                           (let ()
                                             ((let ()
                                                (std/srfi/159/base#displayed
                                                 (_lp611_ (std/srfi/130#string-cursor-next
                                                           _str607_
                                                           _nli615_))))
                                              _st622_))))))))))))
                     (lambda ()
                       ((std/srfi/159/base#each
                         (std/srfi/159/base#each-in-list _ls588_))
                        _st600_))
                     (lambda ()
                       (std/srfi/159/base#_%tell1752_
                        _st600_
                        'output
                        _tmp603_))))))))
           _st590_)))))
  (define std/srfi/159/columnar#wrap-fold-words
    (lambda (_seq521_
             _knil522_
             _max-width523_
             _get-width524_
             _line525_
             .
             _o526_)
      (let* ((_last-line528_ (if (pair? _o526_) (car _o526_) _line525_))
             (_vec530_ (if (list? _seq521_) (list->vector _seq521_) _seq521_))
             (_len532_ (vector-length _vec530_))
             (_len-1534_ (- _len532_ '1))
             (_breaks536_ (make-vector _len532_ '#f))
             (_penalties538_ (make-vector _len532_ '#f))
             (_widths540_
              (list->vector
               (map _get-width524_
                    (if (list? _seq521_) _seq521_ (vector->list _vec530_))))))
        (letrec ((_largest-fit543_
                  (lambda (_i579_)
                    (let _lp581_ ((_j583_ (+ _i579_ '1))
                                  (_width584_ (vector-ref _widths540_ _i579_)))
                      (let ((_width586_
                             (+ _width584_
                                '1
                                (vector-ref _widths540_ _j583_))))
                        (if (>= _width586_ _max-width523_)
                            (- _j583_ '1)
                            (if (>= _j583_ _len-1534_)
                                _len-1534_
                                (_lp581_ (+ _j583_ '1) _width586_)))))))
                 (_min-penalty!544_
                  (lambda (_i562_)
                    (if (>= _i562_ _len-1534_)
                        '0
                        (let ((_$e564_ (vector-ref _penalties538_ _i562_)))
                          (if _$e564_
                              _$e564_
                              (begin
                                (vector-set!
                                 _penalties538_
                                 _i562_
                                 (expt (+ _max-width523_ '1) '3))
                                (vector-set! _breaks536_ _i562_ _i562_)
                                (let ((_k567_ (_largest-fit543_ _i562_)))
                                  (let _lp569_ ((_j571_ _i562_)
                                                (_width572_ '0))
                                    (if (<= _j571_ _k567_)
                                        (let* ((_width574_
                                                (+ _width572_
                                                   (vector-ref
                                                    _widths540_
                                                    _j571_)))
                                               (_break-penalty576_
                                                (+ (max '0
                                                        (expt (- _max-width523_
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                         (+ _width574_ (- _j571_ _i562_)))
                      '3))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                                   (_min-penalty!544_
                                                    (+ _j571_ '1)))))
                                          (if (< _break-penalty576_
                                                 (vector-ref
                                                  _penalties538_
                                                  _i562_))
                                              (begin
                                                (vector-set!
                                                 _breaks536_
                                                 _i562_
                                                 _j571_)
                                                (vector-set!
                                                 _penalties538_
                                                 _i562_
                                                 _break-penalty576_))
                                              '#!void)
                                          (_lp569_ (+ _j571_ '1) _width574_))
                                        '#!void)))
                                (if (>= (vector-ref _breaks536_ _i562_)
                                        _len-1534_)
                                    (vector-set! _penalties538_ _i562_ '0)
                                    '#!void)
                                (vector-ref _penalties538_ _i562_)))))))
                 (_sub-list545_
                  (lambda (_i554_ _j555_)
                    (let _lp557_ ((_i559_ _i554_) (_res560_ '()))
                      (if (> _i559_ _j555_)
                          (reverse _res560_)
                          (_lp557_ (+ _i559_ '1)
                                   (cons (vector-ref _vec530_ _i559_)
                                         _res560_)))))))
          (if (zero? _len532_)
              (_last-line528_ '() _knil522_)
              (begin
                (vector-set! _breaks536_ _len-1534_ _len-1534_)
                (vector-set! _penalties538_ _len-1534_ '0)
                (_min-penalty!544_ '0)
                (let _lp547_ ((_i549_ '0) (_acc550_ _knil522_))
                  (let ((_break552_ (vector-ref _breaks536_ _i549_)))
                    (if (>= _break552_ _len-1534_)
                        (_last-line528_
                         (_sub-list545_ _i549_ _len-1534_)
                         _acc550_)
                        (_lp547_ (+ _break552_ '1)
                                 (_line525_
                                  (_sub-list545_ _i549_ _break552_)
                                  _acc550_)))))))))))
  (define std/srfi/159/columnar#wrapped/list
    (lambda (_ls506_)
      (lambda (_st508_)
        (let ((_width511_
               (##structure-ref _st508_ '4 std/srfi/159/base#Show-Env '#f))
              (_string-width512_
               (##structure-ref _st508_ '10 std/srfi/159/base#Show-Env '#f))
              (_pad-char513_
               (##structure-ref _st508_ '7 std/srfi/159/base#Show-Env '#f)))
          ((let ()
             (std/srfi/159/base#displayed
              (std/srfi/159/show#joined/suffix
               (lambda (_ls516_)
                 (std/srfi/159/show#joined
                  std/srfi/159/base#displayed
                  _ls516_
                  _pad-char513_))
               (reverse (std/srfi/159/columnar#wrap-fold-words
                         _ls506_
                         '()
                         _width511_
                         (let ((_$e518_ _string-width512_))
                           (if _$e518_ _$e518_ string-length))
                         cons))
               '"\n")))
           _st508_)))))
  (define std/srfi/159/columnar#wrapped
    (lambda _ls493_
      (std/srfi/159/base#call-with-output
       (std/srfi/159/base#each-in-list _ls493_)
       (lambda (_str495_)
         (lambda (_st497_)
           (let ((_word-separator?500_
                  (std/srfi/159/base#_%ask411_ _st497_ 'word-separator?)))
             ((let ()
                (std/srfi/159/base#displayed
                 (std/srfi/159/columnar#wrapped/list
                  (std/srfi/159/columnar#string-split-words
                   _str495_
                   (let ((_$e503_ _word-separator?500_))
                     (if _$e503_ _$e503_ char-whitespace?))))))
              _st497_)))))))
  (define std/srfi/159/columnar#justified
    (lambda _ls438_
      (lambda (_st440_)
        (let ((_output443_ (std/srfi/159/base#_%ask411_ _st440_ 'output))
              (_width444_
               (##structure-ref _st440_ '4 std/srfi/159/base#Show-Env '#f))
              (_string-width445_
               (##structure-ref _st440_ '10 std/srfi/159/base#Show-Env '#f)))
          ((let ()
             (letrec ((_justify-line448_
                       (lambda (_ls467_)
                         (if (null? _ls467_)
                             std/srfi/159/show#nl
                             (let* ((_sum475_
                                     (foldl1 (lambda (_s469_ _n470_)
                                               (+ _n470_
                                                  ((let ((_$e472_ _string-width445_))
                                                     (if _$e472_
                                                         _$e472_
                                                         string-length))
                                                   _s469_)))
                                             '0
                                             _ls467_))
                                    (_len477_ (length _ls467_))
                                    (_diff479_
                                     (max '0 (- _width444_ _sum475_)))
                                    (_sep481_
                                     (make-string
                                      (if (= _len477_ '1)
                                          '0
                                          (quotient _diff479_ (- _len477_ '1)))
                                      '#\space))
                                    (_rem483_
                                     (if (= _len477_ '1)
                                         _diff479_
                                         (remainder
                                          _diff479_
                                          (- _len477_ '1))))
                                    (_p485_ (open-output-string)))
                               (display (car _ls467_) _p485_)
                               (let _lp488_ ((_ls490_ (cdr _ls467_))
                                             (_i491_ '1))
                                 (if (pair? _ls490_)
                                     (begin
                                       (display _sep481_ _p485_)
                                       (if (<= _i491_ _rem483_)
                                           (write-char '#\space _p485_)
                                           '#!void)
                                       (display (car _ls490_) _p485_)
                                       (_lp488_ (cdr _ls490_) (+ _i491_ '1)))
                                     '#!void))
                               (std/srfi/159/base#displayed
                                (get-output-string _p485_))))))
                      (_justify-last449_
                       (lambda (_ls465_)
                         (std/srfi/159/base#each
                          (std/srfi/159/show#joined
                           std/srfi/159/base#displayed
                           _ls465_
                           '" ")
                          '"\n"))))
               (std/srfi/159/base#displayed
                (std/srfi/159/base#call-with-output
                 (std/srfi/159/base#each-in-list _ls438_)
                 (lambda (_str451_)
                   (lambda (_st453_)
                     (let ((_word-separator?456_
                            (std/srfi/159/base#_%ask411_
                             _st453_
                             'word-separator?)))
                       ((let ()
                          (std/srfi/159/base#displayed
                           (std/srfi/159/show#joined/last
                            _justify-line448_
                            _justify-last449_
                            (reverse (std/srfi/159/columnar#wrap-fold-words
                                      (std/srfi/159/columnar#string-split-words
                                       _str451_
                                       (let ((_$e459_ _word-separator?456_))
                                         (if _$e459_
                                             _$e459_
                                             char-whitespace?)))
                                      '()
                                      _width444_
                                      (let ((_$e462_ _string-width445_))
                                        (if _$e462_ _$e462_ string-length))
                                      cons))
                            '"\n")))
                        _st453_))))))))
           _st440_)))))
  (define std/srfi/159/columnar#from-file
    (lambda (_path409_ . _ls410_)
      (let ((_rest412_ _ls410_))
        (call-with-values
         (lambda ()
           (if (null? _rest412_)
               (values std/srfi/159/show#nl '())
               (values (car _rest412_) (cdr _rest412_))))
         (lambda (_sep416_ _rest417_)
           (if '#t
               (if (null? _rest417_)
                   (let ()
                     (lambda (_st421_)
                       (let ()
                         ((let ()
                            (std/srfi/159/base#displayed
                             (let ((_in426_ (open-input-file _path409_)))
                               (let _lp428_ ()
                                 (let ((_line431_ (read-line _in426_)))
                                   (if (eof-object? _line431_)
                                       (begin
                                         (close-input-port _in426_)
                                         std/srfi/159/base#nothing)
                                       (std/srfi/159/base#each
                                        _line431_
                                        _sep416_
                                        (lambda (_st433_)
                                          (let ()
                                            ((let ()
                                               (std/srfi/159/base#displayed
                                                (_lp428_)))
                                             _st433_))))))))))
                          _st421_))))
                   (error '"Too many optional arguments." _rest417_))
               (error '"argument out of domain" _sep416_)))))))
  (define std/srfi/159/columnar#line-numbers
    (lambda _o405_
      (let ((_start407_ (if (pair? _o405_) (car _o405_) '1)))
        (std/srfi/159/show#joined/range
         std/srfi/159/base#displayed
         _start407_
         '#f
         '"\n")))))
