;;; (yiwwdn) by Zelah
 
(defmacro fn1 (exp) (list 'function (list 'lambda (list 'x)  exp)))
 
(defmacro pr (&rest args) (cons 'prnt args))
 
(defmacro prnt (exp &rest j) (list 'progn (list 'terpri) (list 'princ "--------------------") (list 'terpri) (list 'elist (list 'quote exp)) (list 'terpri) (list 'princ "-------result-------") (list 'terpri) (list 'elist exp) (list 'terpri)))
 
(defmacro prn (exp j) (list 'if (list 'funcall (list 'n==== exp) (list 'quote j)) (list 'progn (list 'prnt exp) (list 'princ "------expected------") (list 'terpri) (list 'elist (list 'quote j)) (list 'terpri))))
 
;;;
 
(defparameter *delimiter* ",")
 
(defparameter *spaces* " ")
 
(defun elist (exp) (if (listp exp) (let ((sp *spaces*)) (princ "(") (princ sp) (loop for e in exp do (funcall #'(lambda (x) (progn (write x) (princ sp) (princ *delimiter*) (princ sp))) e)) (princ ")")) (write exp)))
 
;;;
 
(terpri)
 
;;;
 
(defun odd (fn) (fn1 (if x (funcall fn x))))
 
(defun pred (fn) (fn1 (if (funcall fn x) (or x t))))
 
(defun less (y) (fn1 (if (< x y) x)))
 
(defun more (y) (fn1 (if (> x y) x)))
 
(defun == (y) (fn1 (if (eq x y) x)))
 
(defun === (y) (fn1 (if (eql x y) x)))
 
(defun ==== (y) (fn1 (if (equal x y) x)))
 
(defun y= (y) (fn1 (if (= x y) x)))
 
(defun n= (y) (fn1 (if (not (= x y)) x)))
 
(defun n== (y) (fn1 (if (not (eq x y)) x)))
 
(defun n=== (y) (fn1 (if (not (eql x y)) x)))
 
(defun n==== (y) (fn1 (if (not (equal x y)) x)))
 
(defun make-adder (n) (fn1 (if (numberp x) (+ x n))))
 
;;;
 
(defun predor (pred &rest preds) (labels ((predor (xs preds) (if preds (or (apply (car preds) xs) (predor xs (cdr preds))) ()))) (lambda (x &rest s) (let ((xs (cons x s))) (or (apply pred xs) (predor xs preds))))))
 
(defun predand (pred &rest preds) (labels ((predand (xs preds) (if preds (and (apply (car preds) xs) (predand xs (cdr preds))) (or (car xs) t)))) #'(lambda (x &rest s) (let ((xs (cons x s))) (if (apply pred xs) (predand xs preds))))))
 
(defun predfn (fn &rest preds) #'(lambda (x &rest s) (let ((xs (cons x s))) (if (apply (apply #'predand preds) xs) (apply fn xs)))))
 
(defun fnfn (fn &rest fnfn) (labels ((fnfn (x fnfn) (if fnfn (fnfn (funcall (car fnfn) x) (cdr fnfn)) x))) #'(lambda (x &rest s) (fnfn (apply fn (cons x s)) fnfn))))
 
(defun shorter (x y) (labels ((len (x) (if (numberp x) x (length x)))(compare (x y) (and (consp y) (or (not x) (compare (cdr y) (cdr x)))))) (values (if (if (if (listp x) (listp y)) (compare x y) (< (len x) (len y))) (or x t)) y x)))
 
(defun typefn (fn &rest preds)
(fn1 (or (funcall (predfn fn (apply #'predand preds)) x) x)))
 
(defun mapped (fn) (lambda (x &rest s) (if s (mapcar fn (cons x s)) (funcall fn x))))
 
(defun tree-mapped (fn) (labels ((tree-map (x &rest s)  (if s (mapcar #'tree-map (cons x s)) (if (consp x) (mapcar #'tree-map x) (funcall fn x))))) #'(lambda (x &rest s) (apply #'tree-map (cons x s)))))
 
(defun 2x () "never used")
 
(setf (symbol-function '2x) (fn1 (* 2 x)))
 
(setf (symbol-function '2x) (typefn #'2x #'numberp))
 
(setf (symbol-function '2x) (tree-mapped #'2x))
 
(defun find-if-values (fn lst) (if lst (if (funcall fn (car lst)) (values (car lst) lst) (find-if-values fn (cdr lst)))))
 
;;;
 
;;;
 
(defun last1 (lst) (car (last lst)))
 
(setf (symbol-function 'last1) (mapped #'last1))
 
(defun single (lst) (and (consp lst) (not (cdr lst)) lst))
 
(setf (symbol-function 'single) (mapped #'single))
 
(defun append1 (lst obj) (append lst (list obj)))
 
(defun conc1 (lst obj) (nconc lst (list obj)))
 
(defun mklist (obj) (if (listp obj) obj (list obj)))
 
(setf (symbol-function 'mklist) (mapped #'mklist))
 
(defun longer (x y) (labels ((len (x) (if (numberp x) x (length x)))(compare (x y) (and (consp x) (or (not y) (compare (cdr x) (cdr y)))))) (values (if (if (if (listp x) (listp y)) (compare x y) (> (len x) (len y))) x) y x)))
 
(defun filter (fn lst) (labels ((fi (fn lst acc) (if lst (let ((val (funcall fn (car lst)))) (if val (fi fn (cdr lst) (cons val acc)) (fi fn (cdr lst) acc))) (reverse acc)))) (fi fn lst ())))
 
(defun group (source n) (labels ((rec (source acc) (let ((rest (nthcdr n source))) (if (consp rest) (rec rest (cons (subseq source 0 n) acc)) (reverse (cons source acc)))))) (if (= 0 n) (error "zero length")) (if source (rec source ()))))
 
(defun flatten (x) (labels ((rec (x acc) (if x (if (atom x) (cons x acc) (rec (car x) (rec (cdr x) acc))) acc))) (rec x ())))
 
(setf (symbol-function 'flatten) (mapped #'flatten))
 
(defun prune (test tree) (labels ((rec (tree acc) (if tree (if (consp (car tree)) (rec (cdr tree) (cons (rec (car tree) ()) acc)) (rec (cdr tree) (if (funcall test (car tree)) acc (cons (car tree) acc)))) (reverse acc)))) (rec tree ())))
 
(defun find2 (fn lst) (if lst (let ((val (funcall fn (car lst)))) (if val (values (car lst) val) (find2 fn (cdr lst)))) lst))
 
(defun before (x y lst &key (test #'==)) (if lst (let ((first (car lst))) (if (funcall (funcall test y) first) () (if (funcall (funcall test x) first) lst (before x y (cdr lst) :test test))))))
 
;;;
;;;
;;;
;;;
;;;
;;;
;;;
;;;
;;;
;;;
;;;
;;;
;;;
;;;
;;;
;;;
;;;
;;;
;;;
;;;
;;;
;;;
;;;
;;;
;;;
;;;
;;;
 
(defparameter nine '(
-4 -3 -2 -1 0 1 2 3 4
))
 
(defparameter het '(
t () 1 "two"
))
 
(defparameter love '(
(i) (think i) (love) (you)
))
 
(defparameter tree '(
((() 2) (3 4) (5 6)) ((7 8) (9 8) (7 6)) ((5 4) (3 2) ((i) (think i))) (((love) (you)) (t ()) (1 "two")) ((-4 -3) (-2 -1) (0 1)) ((2 3) (4))
))
 
(defparameter e '(
2 1 4 3 3 4 1 2 2 7 5 1 2 1 2 3
))
 
(pr nine
(
-4 -3 -2 -1 0 1 2 3 4
))
 
(pr het
(
t () 1 "two"
))
 
(pr love
(
(i) (think i) (love) (you)
))
 
(pr tree
(
((() 2) (3 4) (5 6)) ((7 8) (9 8) (7 6)) ((5 4) (3 2) ((i) (think i))) (((love) (you)) (t ()) (1 "two")) ((-4 -3) (-2 -1) (0 1)) ((2 3) (4))
))
 
(pr e
(
2 1 4 3 3 4 1 2 2 7 5 1 2 1 2 3
))
 
(pr 42
42
)
 
(pr (list 42) 
(
42
))
 
(pr (list (list 42))
(
(42)
))
 
(pr (2x 2)
4
)
 
(pr (2x 1 2 3 4)
(
2 4 6 8
))
 
(pr (conc1 (list 1 2) 3)
(
1 2 3
))
 
(pr nine
(
-4 -3 -2 -1 0 1 2 3 4
))
 
(pr (mapcar #'2x nine)
(
-8 -6 -4 -2 0 2 4 6 8
))
 
(pr (apply #'2x nine)
(
-8 -6 -4 -2 0 2 4 6 8
))
 
(pr (mapcar #'oddp nine)
(
() t () t () t () t ()
))
 
(pr (mapcar (less 0) nine)
(
-4 -3 -2 -1 () () () () ()
))
 
(pr (mapcar (more 0) nine)
(
() () () () () 1 2 3 4
))
 
(pr (mapcar (y= 0) nine)
(
() () () () 0 () () () ()
))
 
(pr (mapcar (n= 0) nine)
(
-4 -3 -2 -1 () 1 2 3 4
))
 
(pr (mapcar (make-adder 10) nine)
(
6 7 8 9 10 11 12 13 14
))
 
(pr (mapcar (make-adder -10) nine)
(
-14 -13 -12 -11 -10 -9 -8 -7 -6
))
 
(pr (mapcar (predor (predand (less 0) #'oddp) (predand (more 0) #'evenp)) nine)
(
() -3 () -1 () () 2 () 4
))
 
(pr (mapcar (predfn (fnfn #'2x (make-adder 10) #'-) (predor (more 2) (less -1)) #'oddp) nine)
(
() -4 () () () () () -16 ()
))
 
(pr (nthcdr 5 nine)
(
1 2 3 4
))
 
(pr (subseq nine 5 8)
(
1 2 3
))
 
(pr (last1 nine)
4
)
 
(pr (filter (predfn (fnfn #'car (make-adder -4)) #'single) (group nine 2))
(
0
))
 
(pr (multiple-value-bind (itm prd) (find2 #'oddp nine) (list itm prd)) 
(
-3 t
))
 
(pr (multiple-value-bind (itm prd) (find2 (more 4) nine) (list itm prd))
(
() ()
))
 
(pr het
(
t () 1 "two"
))
 
(pr (find-if-values #'not het)
()
)
 
(pr (multiple-value-bind (itm lst) (find-if-values #'not het) lst)
(
() 1 "two"
))
 
(pr (mapcar #'mklist het)
(
(t) () (1) ("two")
))
 
(pr (longer het "hat")
(
t () 1 "two"
))
 
(pr (multiple-value-bind (a b c) (shorter () het) (list a b c))
(
t (t () 1 "two") ()
))
 
(pr (longer het 3)
(
t () 1 "two"
))
 
(pr love
(
(i) (think i) (love) (you)
))
 
(pr (apply #'append (mapcar #'single love))
(
i love you
))
 
(pr (append1 love '!)
(
(i) (think i) (love) (you) !
))
 
(pr tree
(
((() 2) (3 4) (5 6)) ((7 8) (9 8) (7 6)) ((5 4) (3 2) ((i) (think i))) (((love) (you)) (t ()) (1 "two")) ((-4 -3) (-2 -1) (0 1)) ((2 3) (4))
))
 
(pr (flatten tree)
(
2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 i think i love you t 1 "two" -4 -3 -2 -1 0 1 2 3 4
))
 
(pr (prune (predand #'numberp #'oddp) tree)
(
((() 2) (4) (6)) ((8) (8) (6)) ((4) (2) ((i) (think i))) (((love) (you)) (t ()) ("two")) ((-4) (-2) (0)) ((2) (4))
))
 
(pr (2x tree)
(
((() 4) (6 8) (10 12)) ((14 16) (18 16) (14 12)) ((10 8) (6 4) ((i) (think i))) (((love) (you)) (t ()) (2 "two")) ((-8 -6) (-4 -2) (0 2)) ((4 6) (8))
))
 
(pr (2x (funcall (tree-mapped (typefn #'list #'numberp (less 0))) (apply #'flatten tree)))
(
(4 6 8 10 12) (14 16 18 16 14 12) (10 8 6 4 i think i) (love you t 2 "two") ((-8) (-6) (-4) (-2) 0 2) (4 6 8)
))
 
(pr e
(
2 1 4 3 3 4 1 2 2 7 5 1 2 1 2 3
))
 
(pr (before 5 4 e :test #'y=)
()
)
 
(pr (before 4 5 e :test #'y=)
(
4 3 3 4 1 2 2 7 5 1 2 1 2 3
))
 
(pr (before 3 7 e :test #'more)
(
4 3 3 4 1 2 2 7 5 1 2 1 2 3
))
 
(pr (list het nine)
(
(t () 1 "two") (-4 -3 -2 -1 0 1 2 3 4)
))
 
(pr (longer het nine)
()
)
 
(pr (multiple-value-bind (a b c) (longer het nine) (list a b c))
(
() (-4 -3 -2 -1 0 1 2 3 4) (t () 1 "two")
))
 
(pr (multiple-value-bind (a b c) (longer nine het) (list a b c))
(
(-4 -3 -2 -1 0 1 2 3 4) (t () 1 "two") (-4 -3 -2 -1 0 1 2 3 4)
))
 
(pr (multiple-value-bind (a b c) (shorter het nine) (list a b c))
(
(t () 1 "two") (-4 -3 -2 -1 0 1 2 3 4) (t () 1 "two")
))
 
(pr (multiple-value-bind (a b c) (shorter nine het) (list a b c))
(
() (t () 1 "two") (-4 -3 -2 -1 0 1 2 3 4)
))
 
(pr (last1 het nine)
(
"two" 4
))
 
;;;;;;;;;pay attention;;;;
 
;;;;;;;;;pay attention;;;;
 
;;;
 
;;;
 
(terpri) (terpri)

Ozs7ICh5aXd3ZG4pIGJ5IFplbGFoCgooZGVmbWFjcm8gZm4xIChleHApIChsaXN0ICdmdW5jdGlvbiAobGlzdCAnbGFtYmRhIChsaXN0ICd4KSAgZXhwKSkpCgooZGVmbWFjcm8gcHIgKCZyZXN0IGFyZ3MpIChjb25zICdwcm50IGFyZ3MpKQoKKGRlZm1hY3JvIHBybnQgKGV4cCAmcmVzdCBqKSAobGlzdCAncHJvZ24gKGxpc3QgJ3RlcnByaSkgKGxpc3QgJ3ByaW5jICItLS0tLS0tLS0tLS0tLS0tLS0tLSIpIChsaXN0ICd0ZXJwcmkpIChsaXN0ICdlbGlzdCAobGlzdCAncXVvdGUgZXhwKSkgKGxpc3QgJ3RlcnByaSkgKGxpc3QgJ3ByaW5jICItLS0tLS0tcmVzdWx0LS0tLS0tLSIpIChsaXN0ICd0ZXJwcmkpIChsaXN0ICdlbGlzdCBleHApIChsaXN0ICd0ZXJwcmkpKSkKCihkZWZtYWNybyBwcm4gKGV4cCBqKSAobGlzdCAnaWYgKGxpc3QgJ2Z1bmNhbGwgKGxpc3QgJ249PT09IGV4cCkgKGxpc3QgJ3F1b3RlIGopKSAobGlzdCAncHJvZ24gKGxpc3QgJ3BybnQgZXhwKSAobGlzdCAncHJpbmMgIi0tLS0tLWV4cGVjdGVkLS0tLS0tIikgKGxpc3QgJ3RlcnByaSkgKGxpc3QgJ2VsaXN0IChsaXN0ICdxdW90ZSBqKSkgKGxpc3QgJ3RlcnByaSkpKSkKCjs7OwoKKGRlZnBhcmFtZXRlciAqZGVsaW1pdGVyKiAiLCIpCgooZGVmcGFyYW1ldGVyICpzcGFjZXMqICIgIikKCihkZWZ1biBlbGlzdCAoZXhwKSAoaWYgKGxpc3RwIGV4cCkgKGxldCAoKHNwICpzcGFjZXMqKSkgKHByaW5jICIoIikgKHByaW5jIHNwKSAobG9vcCBmb3IgZSBpbiBleHAgZG8gKGZ1bmNhbGwgIycobGFtYmRhICh4KSAocHJvZ24gKHdyaXRlIHgpIChwcmluYyBzcCkgKHByaW5jICpkZWxpbWl0ZXIqKSAocHJpbmMgc3ApKSkgZSkpIChwcmluYyAiKSIpKSAod3JpdGUgZXhwKSkpCgo7OzsKCih0ZXJwcmkpCgo7OzsKCihkZWZ1biBvZGQgKGZuKSAoZm4xIChpZiB4IChmdW5jYWxsIGZuIHgpKSkpCgooZGVmdW4gcHJlZCAoZm4pIChmbjEgKGlmIChmdW5jYWxsIGZuIHgpIChvciB4IHQpKSkpCgooZGVmdW4gbGVzcyAoeSkgKGZuMSAoaWYgKDwgeCB5KSB4KSkpCgooZGVmdW4gbW9yZSAoeSkgKGZuMSAoaWYgKD4geCB5KSB4KSkpCgooZGVmdW4gPT0gKHkpIChmbjEgKGlmIChlcSB4IHkpIHgpKSkKCihkZWZ1biA9PT0gKHkpIChmbjEgKGlmIChlcWwgeCB5KSB4KSkpCgooZGVmdW4gPT09PSAoeSkgKGZuMSAoaWYgKGVxdWFsIHggeSkgeCkpKQoKKGRlZnVuIHk9ICh5KSAoZm4xIChpZiAoPSB4IHkpIHgpKSkKCihkZWZ1biBuPSAoeSkgKGZuMSAoaWYgKG5vdCAoPSB4IHkpKSB4KSkpCgooZGVmdW4gbj09ICh5KSAoZm4xIChpZiAobm90IChlcSB4IHkpKSB4KSkpCgooZGVmdW4gbj09PSAoeSkgKGZuMSAoaWYgKG5vdCAoZXFsIHggeSkpIHgpKSkKCihkZWZ1biBuPT09PSAoeSkgKGZuMSAoaWYgKG5vdCAoZXF1YWwgeCB5KSkgeCkpKQoKKGRlZnVuIG1ha2UtYWRkZXIgKG4pIChmbjEgKGlmIChudW1iZXJwIHgpICgrIHggbikpKSkKCjs7OwoKKGRlZnVuIHByZWRvciAocHJlZCAmcmVzdCBwcmVkcykgKGxhYmVscyAoKHByZWRvciAoeHMgcHJlZHMpIChpZiBwcmVkcyAob3IgKGFwcGx5IChjYXIgcHJlZHMpIHhzKSAocHJlZG9yIHhzIChjZHIgcHJlZHMpKSkgKCkpKSkgKGxhbWJkYSAoeCAmcmVzdCBzKSAobGV0ICgoeHMgKGNvbnMgeCBzKSkpIChvciAoYXBwbHkgcHJlZCB4cykgKHByZWRvciB4cyBwcmVkcykpKSkpKQoKKGRlZnVuIHByZWRhbmQgKHByZWQgJnJlc3QgcHJlZHMpIChsYWJlbHMgKChwcmVkYW5kICh4cyBwcmVkcykgKGlmIHByZWRzIChhbmQgKGFwcGx5IChjYXIgcHJlZHMpIHhzKSAocHJlZGFuZCB4cyAoY2RyIHByZWRzKSkpIChvciAoY2FyIHhzKSB0KSkpKSAjJyhsYW1iZGEgKHggJnJlc3QgcykgKGxldCAoKHhzIChjb25zIHggcykpKSAoaWYgKGFwcGx5IHByZWQgeHMpIChwcmVkYW5kIHhzIHByZWRzKSkpKSkpCgooZGVmdW4gcHJlZGZuIChmbiAmcmVzdCBwcmVkcykgIycobGFtYmRhICh4ICZyZXN0IHMpIChsZXQgKCh4cyAoY29ucyB4IHMpKSkgKGlmIChhcHBseSAoYXBwbHkgIydwcmVkYW5kIHByZWRzKSB4cykgKGFwcGx5IGZuIHhzKSkpKSkKCihkZWZ1biBmbmZuIChmbiAmcmVzdCBmbmZuKSAobGFiZWxzICgoZm5mbiAoeCBmbmZuKSAoaWYgZm5mbiAoZm5mbiAoZnVuY2FsbCAoY2FyIGZuZm4pIHgpIChjZHIgZm5mbikpIHgpKSkgIycobGFtYmRhICh4ICZyZXN0IHMpIChmbmZuIChhcHBseSBmbiAoY29ucyB4IHMpKSBmbmZuKSkpKQoKKGRlZnVuIHNob3J0ZXIgKHggeSkgKGxhYmVscyAoKGxlbiAoeCkgKGlmIChudW1iZXJwIHgpIHggKGxlbmd0aCB4KSkpKGNvbXBhcmUgKHggeSkgKGFuZCAoY29uc3AgeSkgKG9yIChub3QgeCkgKGNvbXBhcmUgKGNkciB5KSAoY2RyIHgpKSkpKSkgKHZhbHVlcyAoaWYgKGlmIChpZiAobGlzdHAgeCkgKGxpc3RwIHkpKSAoY29tcGFyZSB4IHkpICg8IChsZW4geCkgKGxlbiB5KSkpIChvciB4IHQpKSB5IHgpKSkKCihkZWZ1biB0eXBlZm4gKGZuICZyZXN0IHByZWRzKQooZm4xIChvciAoZnVuY2FsbCAocHJlZGZuIGZuIChhcHBseSAjJ3ByZWRhbmQgcHJlZHMpKSB4KSB4KSkpCgooZGVmdW4gbWFwcGVkIChmbikgKGxhbWJkYSAoeCAmcmVzdCBzKSAoaWYgcyAobWFwY2FyIGZuIChjb25zIHggcykpIChmdW5jYWxsIGZuIHgpKSkpCgooZGVmdW4gdHJlZS1tYXBwZWQgKGZuKSAobGFiZWxzICgodHJlZS1tYXAgKHggJnJlc3QgcykgIChpZiBzIChtYXBjYXIgIyd0cmVlLW1hcCAoY29ucyB4IHMpKSAoaWYgKGNvbnNwIHgpIChtYXBjYXIgIyd0cmVlLW1hcCB4KSAoZnVuY2FsbCBmbiB4KSkpKSkgIycobGFtYmRhICh4ICZyZXN0IHMpIChhcHBseSAjJ3RyZWUtbWFwIChjb25zIHggcykpKSkpCgooZGVmdW4gMnggKCkgIm5ldmVyIHVzZWQiKQoKKHNldGYgKHN5bWJvbC1mdW5jdGlvbiAnMngpIChmbjEgKCogMiB4KSkpCgooc2V0ZiAoc3ltYm9sLWZ1bmN0aW9uICcyeCkgKHR5cGVmbiAjJzJ4ICMnbnVtYmVycCkpCgooc2V0ZiAoc3ltYm9sLWZ1bmN0aW9uICcyeCkgKHRyZWUtbWFwcGVkICMnMngpKQoKKGRlZnVuIGZpbmQtaWYtdmFsdWVzIChmbiBsc3QpIChpZiBsc3QgKGlmIChmdW5jYWxsIGZuIChjYXIgbHN0KSkgKHZhbHVlcyAoY2FyIGxzdCkgbHN0KSAoZmluZC1pZi12YWx1ZXMgZm4gKGNkciBsc3QpKSkpKQoKOzs7Cgo7OzsKCihkZWZ1biBsYXN0MSAobHN0KSAoY2FyIChsYXN0IGxzdCkpKQoKKHNldGYgKHN5bWJvbC1mdW5jdGlvbiAnbGFzdDEpIChtYXBwZWQgIydsYXN0MSkpCgooZGVmdW4gc2luZ2xlIChsc3QpIChhbmQgKGNvbnNwIGxzdCkgKG5vdCAoY2RyIGxzdCkpIGxzdCkpCgooc2V0ZiAoc3ltYm9sLWZ1bmN0aW9uICdzaW5nbGUpIChtYXBwZWQgIydzaW5nbGUpKQoKKGRlZnVuIGFwcGVuZDEgKGxzdCBvYmopIChhcHBlbmQgbHN0IChsaXN0IG9iaikpKQoKKGRlZnVuIGNvbmMxIChsc3Qgb2JqKSAobmNvbmMgbHN0IChsaXN0IG9iaikpKQoKKGRlZnVuIG1rbGlzdCAob2JqKSAoaWYgKGxpc3RwIG9iaikgb2JqIChsaXN0IG9iaikpKQoKKHNldGYgKHN5bWJvbC1mdW5jdGlvbiAnbWtsaXN0KSAobWFwcGVkICMnbWtsaXN0KSkKCihkZWZ1biBsb25nZXIgKHggeSkgKGxhYmVscyAoKGxlbiAoeCkgKGlmIChudW1iZXJwIHgpIHggKGxlbmd0aCB4KSkpKGNvbXBhcmUgKHggeSkgKGFuZCAoY29uc3AgeCkgKG9yIChub3QgeSkgKGNvbXBhcmUgKGNkciB4KSAoY2RyIHkpKSkpKSkgKHZhbHVlcyAoaWYgKGlmIChpZiAobGlzdHAgeCkgKGxpc3RwIHkpKSAoY29tcGFyZSB4IHkpICg+IChsZW4geCkgKGxlbiB5KSkpIHgpIHkgeCkpKQoKKGRlZnVuIGZpbHRlciAoZm4gbHN0KSAobGFiZWxzICgoZmkgKGZuIGxzdCBhY2MpIChpZiBsc3QgKGxldCAoKHZhbCAoZnVuY2FsbCBmbiAoY2FyIGxzdCkpKSkgKGlmIHZhbCAoZmkgZm4gKGNkciBsc3QpIChjb25zIHZhbCBhY2MpKSAoZmkgZm4gKGNkciBsc3QpIGFjYykpKSAocmV2ZXJzZSBhY2MpKSkpIChmaSBmbiBsc3QgKCkpKSkKCihkZWZ1biBncm91cCAoc291cmNlIG4pIChsYWJlbHMgKChyZWMgKHNvdXJjZSBhY2MpIChsZXQgKChyZXN0IChudGhjZHIgbiBzb3VyY2UpKSkgKGlmIChjb25zcCByZXN0KSAocmVjIHJlc3QgKGNvbnMgKHN1YnNlcSBzb3VyY2UgMCBuKSBhY2MpKSAocmV2ZXJzZSAoY29ucyBzb3VyY2UgYWNjKSkpKSkpIChpZiAoPSAwIG4pIChlcnJvciAiemVybyBsZW5ndGgiKSkgKGlmIHNvdXJjZSAocmVjIHNvdXJjZSAoKSkpKSkKCihkZWZ1biBmbGF0dGVuICh4KSAobGFiZWxzICgocmVjICh4IGFjYykgKGlmIHggKGlmIChhdG9tIHgpIChjb25zIHggYWNjKSAocmVjIChjYXIgeCkgKHJlYyAoY2RyIHgpIGFjYykpKSBhY2MpKSkgKHJlYyB4ICgpKSkpCgooc2V0ZiAoc3ltYm9sLWZ1bmN0aW9uICdmbGF0dGVuKSAobWFwcGVkICMnZmxhdHRlbikpCgooZGVmdW4gcHJ1bmUgKHRlc3QgdHJlZSkgKGxhYmVscyAoKHJlYyAodHJlZSBhY2MpIChpZiB0cmVlIChpZiAoY29uc3AgKGNhciB0cmVlKSkgKHJlYyAoY2RyIHRyZWUpIChjb25zIChyZWMgKGNhciB0cmVlKSAoKSkgYWNjKSkgKHJlYyAoY2RyIHRyZWUpIChpZiAoZnVuY2FsbCB0ZXN0IChjYXIgdHJlZSkpIGFjYyAoY29ucyAoY2FyIHRyZWUpIGFjYykpKSkgKHJldmVyc2UgYWNjKSkpKSAocmVjIHRyZWUgKCkpKSkKCihkZWZ1biBmaW5kMiAoZm4gbHN0KSAoaWYgbHN0IChsZXQgKCh2YWwgKGZ1bmNhbGwgZm4gKGNhciBsc3QpKSkpIChpZiB2YWwgKHZhbHVlcyAoY2FyIGxzdCkgdmFsKSAoZmluZDIgZm4gKGNkciBsc3QpKSkpIGxzdCkpCgooZGVmdW4gYmVmb3JlICh4IHkgbHN0ICZrZXkgKHRlc3QgIyc9PSkpIChpZiBsc3QgKGxldCAoKGZpcnN0IChjYXIgbHN0KSkpIChpZiAoZnVuY2FsbCAoZnVuY2FsbCB0ZXN0IHkpIGZpcnN0KSAoKSAoaWYgKGZ1bmNhbGwgKGZ1bmNhbGwgdGVzdCB4KSBmaXJzdCkgbHN0IChiZWZvcmUgeCB5IChjZHIgbHN0KSA6dGVzdCB0ZXN0KSkpKSkpCgo7OzsKOzs7Cjs7Owo7OzsKOzs7Cjs7Owo7OzsKOzs7Cjs7Owo7OzsKOzs7Cjs7Owo7OzsKOzs7Cjs7Owo7OzsKOzs7Cjs7Owo7OzsKOzs7Cjs7Owo7OzsKOzs7Cjs7Owo7OzsKOzs7Cjs7OwoKKGRlZnBhcmFtZXRlciBuaW5lICcoCi00IC0zIC0yIC0xIDAgMSAyIDMgNAopKQoKKGRlZnBhcmFtZXRlciBoZXQgJygKdCAoKSAxICJ0d28iCikpCgooZGVmcGFyYW1ldGVyIGxvdmUgJygKKGkpICh0aGluayBpKSAobG92ZSkgKHlvdSkKKSkKCihkZWZwYXJhbWV0ZXIgdHJlZSAnKAooKCgpIDIpICgzIDQpICg1IDYpKSAoKDcgOCkgKDkgOCkgKDcgNikpICgoNSA0KSAoMyAyKSAoKGkpICh0aGluayBpKSkpICgoKGxvdmUpICh5b3UpKSAodCAoKSkgKDEgInR3byIpKSAoKC00IC0zKSAoLTIgLTEpICgwIDEpKSAoKDIgMykgKDQpKQopKQoKKGRlZnBhcmFtZXRlciBlICcoCjIgMSA0IDMgMyA0IDEgMiAyIDcgNSAxIDIgMSAyIDMKKSkKCihwciBuaW5lCigKLTQgLTMgLTIgLTEgMCAxIDIgMyA0CikpCgoocHIgaGV0CigKdCAoKSAxICJ0d28iCikpCgoocHIgbG92ZQooCihpKSAodGhpbmsgaSkgKGxvdmUpICh5b3UpCikpCgoocHIgdHJlZQooCigoKCkgMikgKDMgNCkgKDUgNikpICgoNyA4KSAoOSA4KSAoNyA2KSkgKCg1IDQpICgzIDIpICgoaSkgKHRoaW5rIGkpKSkgKCgobG92ZSkgKHlvdSkpICh0ICgpKSAoMSAidHdvIikpICgoLTQgLTMpICgtMiAtMSkgKDAgMSkpICgoMiAzKSAoNCkpCikpCgoocHIgZQooCjIgMSA0IDMgMyA0IDEgMiAyIDcgNSAxIDIgMSAyIDMKKSkKCihwciA0Mgo0MgopCgoocHIgKGxpc3QgNDIpIAooCjQyCikpCgoocHIgKGxpc3QgKGxpc3QgNDIpKQooCig0MikKKSkKCihwciAoMnggMikKNAopCgoocHIgKDJ4IDEgMiAzIDQpCigKMiA0IDYgOAopKQoKKHByIChjb25jMSAobGlzdCAxIDIpIDMpCigKMSAyIDMKKSkKCihwciBuaW5lCigKLTQgLTMgLTIgLTEgMCAxIDIgMyA0CikpCgoocHIgKG1hcGNhciAjJzJ4IG5pbmUpCigKLTggLTYgLTQgLTIgMCAyIDQgNiA4CikpCgoocHIgKGFwcGx5ICMnMnggbmluZSkKKAotOCAtNiAtNCAtMiAwIDIgNCA2IDgKKSkKCihwciAobWFwY2FyICMnb2RkcCBuaW5lKQooCigpIHQgKCkgdCAoKSB0ICgpIHQgKCkKKSkKCihwciAobWFwY2FyIChsZXNzIDApIG5pbmUpCigKLTQgLTMgLTIgLTEgKCkgKCkgKCkgKCkgKCkKKSkKCihwciAobWFwY2FyIChtb3JlIDApIG5pbmUpCigKKCkgKCkgKCkgKCkgKCkgMSAyIDMgNAopKQoKKHByIChtYXBjYXIgKHk9IDApIG5pbmUpCigKKCkgKCkgKCkgKCkgMCAoKSAoKSAoKSAoKQopKQoKKHByIChtYXBjYXIgKG49IDApIG5pbmUpCigKLTQgLTMgLTIgLTEgKCkgMSAyIDMgNAopKQoKKHByIChtYXBjYXIgKG1ha2UtYWRkZXIgMTApIG5pbmUpCigKNiA3IDggOSAxMCAxMSAxMiAxMyAxNAopKQoKKHByIChtYXBjYXIgKG1ha2UtYWRkZXIgLTEwKSBuaW5lKQooCi0xNCAtMTMgLTEyIC0xMSAtMTAgLTkgLTggLTcgLTYKKSkKCihwciAobWFwY2FyIChwcmVkb3IgKHByZWRhbmQgKGxlc3MgMCkgIydvZGRwKSAocHJlZGFuZCAobW9yZSAwKSAjJ2V2ZW5wKSkgbmluZSkKKAooKSAtMyAoKSAtMSAoKSAoKSAyICgpIDQKKSkKCihwciAobWFwY2FyIChwcmVkZm4gKGZuZm4gIycyeCAobWFrZS1hZGRlciAxMCkgIyctKSAocHJlZG9yIChtb3JlIDIpIChsZXNzIC0xKSkgIydvZGRwKSBuaW5lKQooCigpIC00ICgpICgpICgpICgpICgpIC0xNiAoKQopKQoKKHByIChudGhjZHIgNSBuaW5lKQooCjEgMiAzIDQKKSkKCihwciAoc3Vic2VxIG5pbmUgNSA4KQooCjEgMiAzCikpCgoocHIgKGxhc3QxIG5pbmUpCjQKKQoKKHByIChmaWx0ZXIgKHByZWRmbiAoZm5mbiAjJ2NhciAobWFrZS1hZGRlciAtNCkpICMnc2luZ2xlKSAoZ3JvdXAgbmluZSAyKSkKKAowCikpCgoocHIgKG11bHRpcGxlLXZhbHVlLWJpbmQgKGl0bSBwcmQpIChmaW5kMiAjJ29kZHAgbmluZSkgKGxpc3QgaXRtIHByZCkpIAooCi0zIHQKKSkKCihwciAobXVsdGlwbGUtdmFsdWUtYmluZCAoaXRtIHByZCkgKGZpbmQyIChtb3JlIDQpIG5pbmUpIChsaXN0IGl0bSBwcmQpKQooCigpICgpCikpCgoocHIgaGV0CigKdCAoKSAxICJ0d28iCikpCgoocHIgKGZpbmQtaWYtdmFsdWVzICMnbm90IGhldCkKKCkKKQoKKHByIChtdWx0aXBsZS12YWx1ZS1iaW5kIChpdG0gbHN0KSAoZmluZC1pZi12YWx1ZXMgIydub3QgaGV0KSBsc3QpCigKKCkgMSAidHdvIgopKQoKKHByIChtYXBjYXIgIydta2xpc3QgaGV0KQooCih0KSAoKSAoMSkgKCJ0d28iKQopKQoKKHByIChsb25nZXIgaGV0ICJoYXQiKQooCnQgKCkgMSAidHdvIgopKQoKKHByIChtdWx0aXBsZS12YWx1ZS1iaW5kIChhIGIgYykgKHNob3J0ZXIgKCkgaGV0KSAobGlzdCBhIGIgYykpCigKdCAodCAoKSAxICJ0d28iKSAoKQopKQoKKHByIChsb25nZXIgaGV0IDMpCigKdCAoKSAxICJ0d28iCikpCgoocHIgbG92ZQooCihpKSAodGhpbmsgaSkgKGxvdmUpICh5b3UpCikpCgoocHIgKGFwcGx5ICMnYXBwZW5kIChtYXBjYXIgIydzaW5nbGUgbG92ZSkpCigKaSBsb3ZlIHlvdQopKQoKKHByIChhcHBlbmQxIGxvdmUgJyEpCigKKGkpICh0aGluayBpKSAobG92ZSkgKHlvdSkgIQopKQoKKHByIHRyZWUKKAooKCgpIDIpICgzIDQpICg1IDYpKSAoKDcgOCkgKDkgOCkgKDcgNikpICgoNSA0KSAoMyAyKSAoKGkpICh0aGluayBpKSkpICgoKGxvdmUpICh5b3UpKSAodCAoKSkgKDEgInR3byIpKSAoKC00IC0zKSAoLTIgLTEpICgwIDEpKSAoKDIgMykgKDQpKQopKQoKKHByIChmbGF0dGVuIHRyZWUpCigKMiAzIDQgNSA2IDcgOCA5IDggNyA2IDUgNCAzIDIgaSB0aGluayBpIGxvdmUgeW91IHQgMSAidHdvIiAtNCAtMyAtMiAtMSAwIDEgMiAzIDQKKSkKCihwciAocHJ1bmUgKHByZWRhbmQgIydudW1iZXJwICMnb2RkcCkgdHJlZSkKKAooKCgpIDIpICg0KSAoNikpICgoOCkgKDgpICg2KSkgKCg0KSAoMikgKChpKSAodGhpbmsgaSkpKSAoKChsb3ZlKSAoeW91KSkgKHQgKCkpICgidHdvIikpICgoLTQpICgtMikgKDApKSAoKDIpICg0KSkKKSkKCihwciAoMnggdHJlZSkKKAooKCgpIDQpICg2IDgpICgxMCAxMikpICgoMTQgMTYpICgxOCAxNikgKDE0IDEyKSkgKCgxMCA4KSAoNiA0KSAoKGkpICh0aGluayBpKSkpICgoKGxvdmUpICh5b3UpKSAodCAoKSkgKDIgInR3byIpKSAoKC04IC02KSAoLTQgLTIpICgwIDIpKSAoKDQgNikgKDgpKQopKQoKKHByICgyeCAoZnVuY2FsbCAodHJlZS1tYXBwZWQgKHR5cGVmbiAjJ2xpc3QgIydudW1iZXJwIChsZXNzIDApKSkgKGFwcGx5ICMnZmxhdHRlbiB0cmVlKSkpCigKKDQgNiA4IDEwIDEyKSAoMTQgMTYgMTggMTYgMTQgMTIpICgxMCA4IDYgNCBpIHRoaW5rIGkpIChsb3ZlIHlvdSB0IDIgInR3byIpICgoLTgpICgtNikgKC00KSAoLTIpIDAgMikgKDQgNiA4KQopKQoKKHByIGUKKAoyIDEgNCAzIDMgNCAxIDIgMiA3IDUgMSAyIDEgMiAzCikpCgoocHIgKGJlZm9yZSA1IDQgZSA6dGVzdCAjJ3k9KQooKQopCgoocHIgKGJlZm9yZSA0IDUgZSA6dGVzdCAjJ3k9KQooCjQgMyAzIDQgMSAyIDIgNyA1IDEgMiAxIDIgMwopKQoKKHByIChiZWZvcmUgMyA3IGUgOnRlc3QgIydtb3JlKQooCjQgMyAzIDQgMSAyIDIgNyA1IDEgMiAxIDIgMwopKQoKKHByIChsaXN0IGhldCBuaW5lKQooCih0ICgpIDEgInR3byIpICgtNCAtMyAtMiAtMSAwIDEgMiAzIDQpCikpCgoocHIgKGxvbmdlciBoZXQgbmluZSkKKCkKKQoKKHByIChtdWx0aXBsZS12YWx1ZS1iaW5kIChhIGIgYykgKGxvbmdlciBoZXQgbmluZSkgKGxpc3QgYSBiIGMpKQooCigpICgtNCAtMyAtMiAtMSAwIDEgMiAzIDQpICh0ICgpIDEgInR3byIpCikpCgoocHIgKG11bHRpcGxlLXZhbHVlLWJpbmQgKGEgYiBjKSAobG9uZ2VyIG5pbmUgaGV0KSAobGlzdCBhIGIgYykpCigKKC00IC0zIC0yIC0xIDAgMSAyIDMgNCkgKHQgKCkgMSAidHdvIikgKC00IC0zIC0yIC0xIDAgMSAyIDMgNCkKKSkKCihwciAobXVsdGlwbGUtdmFsdWUtYmluZCAoYSBiIGMpIChzaG9ydGVyIGhldCBuaW5lKSAobGlzdCBhIGIgYykpCigKKHQgKCkgMSAidHdvIikgKC00IC0zIC0yIC0xIDAgMSAyIDMgNCkgKHQgKCkgMSAidHdvIikKKSkKCihwciAobXVsdGlwbGUtdmFsdWUtYmluZCAoYSBiIGMpIChzaG9ydGVyIG5pbmUgaGV0KSAobGlzdCBhIGIgYykpCigKKCkgKHQgKCkgMSAidHdvIikgKC00IC0zIC0yIC0xIDAgMSAyIDMgNCkKKSkKCihwciAobGFzdDEgaGV0IG5pbmUpCigKInR3byIgNAopKQoKOzs7Ozs7Ozs7cGF5IGF0dGVudGlvbjs7OzsKCjs7Ozs7Ozs7O3BheSBhdHRlbnRpb247Ozs7Cgo7OzsKCjs7OwoKKHRlcnByaSkgKHRlcnByaSk=