The Forced Indentation Of Staring Into the Abyss
scheme@(guile-user)> (display ((lambda (rec xjoin extract index chars n) ((lambda (xjoin lines columns) ((lambda (symbol) (xjoin lines (lambda (k) (string-append (xjoin columns (lambda (j) (symbol k j)) "") "\n")) "")) (lambda (k j) (extract chars (index lines columns k j) 1)))) (lambda (n fun sep) (rec xjoin n fun sep "")) (* 2 n) (- (* 6 n) 2))) (lambda (f . args) (apply f (cons f args))) (lambda (self n fun sep acc) (if (<= n 0) "" (if (= n 1) (string-append (fun 0) acc) (self self (- n 1) fun sep (string-append sep (fun (- n 1)) acc))))) (lambda (str pos len) (substring str pos (+ pos len))) ((lambda (half) (lambda (lines columns k j) (apply (lambda (k up j left) ((lambda (jd jm) (if (<= jd (- k 2)) 1 (if (= jd (- k 1)) (if (= jm 1) (if up 3 4) 1) (if (= jd k) (if (= jm 0) 1 (if (= jm 1) (if left 6 5) 0)) (if (= jm 1) 2 0))))) (quotient j 3) (modulo j 3))) `(,@(half lines k) ,@(half columns j))))) (lambda (lines k) ((lambda (l2) (if (< k l2) `(,(- l2 k 1) #t) `(,(- k l2) #f))) (quotient lines 2)))) " ─│┬┴┤├" 9))
├──┬────────────────────────────────────────────┬──┤
│ ├──┬──────────────────────────────────────┬──┤ │
│ │ ├──┬────────────────────────────────┬──┤ │ │
│ │ │ ├──┬──────────────────────────┬──┤ │ │ │
│ │ │ │ ├──┬────────────────────┬──┤ │ │ │ │
│ │ │ │ │ ├──┬──────────────┬──┤ │ │ │ │ │
│ │ │ │ │ │ ├──┬────────┬──┤ │ │ │ │ │ │
│ │ │ │ │ │ │ ├──┬──┬──┤ │ │ │ │ │ │ │
│ │ │ │ │ │ │ │ ├──┤ │ │ │ │ │ │ │ │
│ │ │ │ │ │ │ │ ├──┤ │ │ │ │ │ │ │ │
│ │ │ │ │ │ │ ├──┴──┴──┤ │ │ │ │ │ │ │
│ │ │ │ │ │ ├──┴────────┴──┤ │ │ │ │ │ │
│ │ │ │ │ ├──┴──────────────┴──┤ │ │ │ │ │
│ │ │ │ ├──┴────────────────────┴──┤ │ │ │ │
│ │ │ ├──┴──────────────────────────┴──┤ │ │ │
│ │ ├──┴────────────────────────────────┴──┤ │ │
│ ├──┴──────────────────────────────────────┴──┤ │
├──┴────────────────────────────────────────────┴──┤
scheme@(guile-user)> if your browser adds useless vertical scrollbars to code boxes after >>28 getting rid of vertical gaps: >>109