The Forced Indentation Of ├┤ Tree Fractals
scheme@(guile-user)> (display ((lambda (rec xjoin extract index size start startlr n chars) ((lambda (xjoin index size) ((lambda (lincol) ((lambda (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 startlr) 1)))) (car lincol) (cadr lincol))) (size (+ n 1) start))) (lambda (n fun sep) (rec xjoin n fun sep "")) (lambda (rows cols k j lr) (rec index rows cols k j lr)) (lambda (n rowcol) (rec size n rowcol)))) (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 (self rows cols k j lr) ((lambda (r2 c2) (if (= k r2) (if (= j c2) (if lr 6 5) (if ((if lr < >) j c2) 0 1)) ((lambda (r4) ((lambda (r4+) (if (= j c2) (if (< k r4) 0 (if (= k r4) 3 (if (< k r4+) 2 (if (= k r4+) 4 0)))) (if (= (abs (- j c2)) 1) (if (or (= k r4) (= k r4+)) 1 0) (self self r2 (- c2 1) (if (< k r2) k (- k r2 1)) (if (< j c2) j (- j c2 2)) (< j c2))))) (+ 2 (* 3 r4)))) (quotient r2 2)))) (quotient rows 2) (quotient cols 2))) (lambda (self n rowcol) (if (= n 0) rowcol (self self (- n 1) (list (+ 1 (* 2 (car rowcol))) (+ 3 (* 2 (cadr rowcol))))))) '(1 0) #t 3 " ─│┬┴┤├"))separate output for 413