;----------- 3 задание
 
(defun replace ; заменяет все значения old_value на new_value в списке array
       (array old_value new_value)
       (cond 
            ((null array) nil)
            ((eql old_value (car array)) (cons new_value (replace (cdr array) old_value new_value)))
            (t (cons (car array) (replace (cdr array) old_value new_value)))
       )
)
 
(print (replace '(1 2 7 1 0 1 4) 1 6))
 
;-------
 
;------ 9 задание
(defun neql (a b) ; функция обратна функции eql
  (not (eql a b))
)
 
(defun even (array) ; возвращает подсписок списка array, в котором все элементы-цифры четные
    (cond
        ((null array) nil)
        ((eql 0 (mod (car array) 2)) (cons (car array) (even (cdr array))))
        (t (even (cdr array)))
    )
)
 
(defun odd (array) ; возвращает подсписок списка array, в котором все элементы-цифры нечетные
	(cond
        ((null array) nil)
        ((neql 0 (mod (car array) 2)) (cons (car array) (odd (cdr array))))
        (t (odd (cdr array)))
    )
)
 
(defun even_odd (array) (list (odd array) (even array))) ; разделяет список из цифр array на нечетный и четный списки
 
(print (even_odd '(1 2 3 4 5 6 7 8 9 10)))
 
;------
 
;------ 10 задание
(defun pop (array) ; удаляет последний элемент из списка array
	(cond
		((null (cdr array)) nil)
		(t (cons (car array) (pop (cdr array))))
	)
)
 
(defun del (array count) ; удаляет count последних элементов из списка array
	(cond
		((eql count 1) (pop array))
		(t (del (pop array) (- count 1)))
	)
)
 
(print (del '(1 2 3 4 5 6 7 8 9 10) 3))
 
;-----
 
(defun in (elem array) ; проверяет находится ли elem в списке array
	(cond
		((null array) nil)
		((eql elem (car array)) t)
		(t (in elem (cdr array)))
	)
)
 
(defun set (array) ; возвращает множество (только уникальные элементы) из списка array
	(cond
		((null array) nil)
		((in (car array) (cdr array)) (set (cdr array)))
		(t (cons (car array) (set (cdr array))))
	)
)
 
;----- 17 задание
(defun remove (elem array) ; удаляет первое вхождение elem из списка array
	(cond
		((null array) nil)
		((eql elem (car array)) (cdr array))
		(t (cons (car array) (remove elem (cdr array))))
	)
)
 
(defun adds (elem sets) ; добавляет в каждый список из sets в начало elem
	(cond
		((null sets) nil)
		(t (cons (cons elem (car sets)) (adds elem (cdr sets))))
	)
)
 
(defun pair (elem array) ; формирует пару значений (значение elem из списка array; список array без этого значения)
  (list elem (remove elem array))
)
 
(defun pairs (array elems) ; формирует список пар значений (значение из списка elems; список array без этого значения)
 
  (cond
    ((null elems) nil)
    (t (cons (pair (car elems) array) (pairs array (cdr elems))))
  )
)
 
(defun info-pair (pair1) ; создает комбинацию или комбинации значений пары
  (cond
    ((null (cdadr pair1)) (list (list (car pair1) (caadr pair1))))
    (t (adds (car pair1) (all-swap (cadr pair1))))
  )
)
 
(defun info-pairs (set_pairs) ; создает комбинации значений пар
  (cond
    ((null set_pairs) nil)
    (t 
    	(append 
    		(info-pair (car set_pairs))
            (info-pairs (cdr set_pairs))
        )
    )
  )
)
 
(defun all-swap (set) ; создает все перестановки списка set
  (let ((all_pair (pairs set set)))
    (info-pairs all_pair)
  )
)
 
(print (all-swap (set '(1 2 3 3 1))))
 
;-----
 
;------- 18
(defun is-atoms (array) ; проверяет состоит ли список array только из атомов
	(cond
		((null array) t)
		((atom (car array)) (is-atoms (cdr array)))
		(t nil)
	)
)
 
(print (is-atoms '(7 6 3 0 3)))
(print (is-atoms '(7 6 3 (0 3))))
 
;--------
 
;-------23
(defun in-list (array) ; формирует вложенный список
	(cond
		((null (cdr array)) array)
		(t (list (car array) (in-list (cdr array))))
	)
)
 
(defun out-list (array) ; раскрывает вложенный список 
	(cond
		((null (cdr array)) array)
		(t (cons (car array) (out-list (cadr array))))
	)
)
 
(setf a (in-list '(a b c d)))
(print a)
(print (out-list a))
 
;-------
 
;------ 34
(defun РАВЕНСТВО-МНОЖЕСТВ (set1 set2)
	(cond
		((and (null set1) (null set2)) t)
		((null set1) nil)
		((null set2) nil)
		((in (car set1) set2) (РАВЕНСТВО-МНОЖЕСТВ (cdr set1) (remove (car set1) set2)))
		(t nil)
	)
)
 
(print (РАВЕНСТВО-МНОЖЕСТВ '(1 2 3 4) '(4 1 3 2)))
(print (РАВЕНСТВО-МНОЖЕСТВ '(1 2 3 4) '(4 1 3)))
 
;------
 
;------ 38
(defun union (set1 set2)
	(cond
		((null set1) set2)
		((null set2) set1)
		((in (car set2) set1) (union set1 (cdr set2)))
		(t (union (cons (car set2) set1) (cdr set2)))
	)
)
 
(print (union (set '(1 2 3 4 1 2)) (set '(3 4 3 5 10))))
 
;-----
 
;----- 42
(defun max2 (a b) ; максимум двух чисел
  (cond 
    ((> a b) a)
    (t b)
  )
)
 
(defun max-of-subtrees (subtrees curr-max) ; обход списка поддеревьев, поддерживая текущий максимум
  (cond 
    ((null subtrees) curr-max)
    (t (max-of-subtrees (cdr subtrees)
                            (max2 curr-max (max-tree (car subtrees)))))
  )
)
 
(defun max-tree (tree) ; максимальное значение в дереве
  (cond 
    ((atom tree) tree)                    
    (t (max-of-subtrees (cdr tree) (car tree)))
  )
)
 
(max-tree '(5 (3 8 2) (7 (2 4 0) 9))) 
(max-tree '(42))                    
(max-tree '(6 (10 34 20) (40 18 5))) 
 
;-----
 
;------ 45
(defun РАССТОЯНИЕ (a b)
  (let ((dx (- (get a 'x) (get b 'x)))
        (dy (- (get a 'y) (get b 'y))))
    (sqrt (+ (* dx dx) (* dy dy))))
)
 
(setf (get 'москва 'x) 0)
(setf (get 'москва 'y) 0)
(setf (get 'питер 'x) 3)
(setf (get 'питер 'y) 4)
 
(print (РАССТОЯНИЕ 'москва 'питер))
 
;-------
 

Oy0tLS0tLS0tLS0tIDMg0LfQsNC00LDQvdC40LUKCihkZWZ1biByZXBsYWNlIDsg0LfQsNC80LXQvdGP0LXRgiDQstGB0LUg0LfQvdCw0YfQtdC90LjRjyBvbGRfdmFsdWUg0L3QsCBuZXdfdmFsdWUg0LIg0YHQv9C40YHQutC1IGFycmF5CiAgICAgICAoYXJyYXkgb2xkX3ZhbHVlIG5ld192YWx1ZSkKICAgICAgIChjb25kIAogICAgICAgICAgICAoKG51bGwgYXJyYXkpIG5pbCkKICAgICAgICAgICAgKChlcWwgb2xkX3ZhbHVlIChjYXIgYXJyYXkpKSAoY29ucyBuZXdfdmFsdWUgKHJlcGxhY2UgKGNkciBhcnJheSkgb2xkX3ZhbHVlIG5ld192YWx1ZSkpKQogICAgICAgICAgICAodCAoY29ucyAoY2FyIGFycmF5KSAocmVwbGFjZSAoY2RyIGFycmF5KSBvbGRfdmFsdWUgbmV3X3ZhbHVlKSkpCiAgICAgICApCikKCihwcmludCAocmVwbGFjZSAnKDEgMiA3IDEgMCAxIDQpIDEgNikpCgo7LS0tLS0tLQoKOy0tLS0tLSA5INC30LDQtNCw0L3QuNC1CihkZWZ1biBuZXFsIChhIGIpIDsg0YTRg9C90LrRhtC40Y8g0L7QsdGA0LDRgtC90LAg0YTRg9C90LrRhtC40LggZXFsCiAgKG5vdCAoZXFsIGEgYikpCikKCihkZWZ1biBldmVuIChhcnJheSkgOyDQstC+0LfQstGA0LDRidCw0LXRgiDQv9C+0LTRgdC/0LjRgdC+0Log0YHQv9C40YHQutCwIGFycmF5LCDQsiDQutC+0YLQvtGA0L7QvCDQstGB0LUg0Y3Qu9C10LzQtdC90YLRiy3RhtC40YTRgNGLINGH0LXRgtC90YvQtQogICAgKGNvbmQKICAgICAgICAoKG51bGwgYXJyYXkpIG5pbCkKICAgICAgICAoKGVxbCAwIChtb2QgKGNhciBhcnJheSkgMikpIChjb25zIChjYXIgYXJyYXkpIChldmVuIChjZHIgYXJyYXkpKSkpCiAgICAgICAgKHQgKGV2ZW4gKGNkciBhcnJheSkpKQogICAgKQopCgooZGVmdW4gb2RkIChhcnJheSkgOyDQstC+0LfQstGA0LDRidCw0LXRgiDQv9C+0LTRgdC/0LjRgdC+0Log0YHQv9C40YHQutCwIGFycmF5LCDQsiDQutC+0YLQvtGA0L7QvCDQstGB0LUg0Y3Qu9C10LzQtdC90YLRiy3RhtC40YTRgNGLINC90LXRh9C10YLQvdGL0LUKCShjb25kCiAgICAgICAgKChudWxsIGFycmF5KSBuaWwpCiAgICAgICAgKChuZXFsIDAgKG1vZCAoY2FyIGFycmF5KSAyKSkgKGNvbnMgKGNhciBhcnJheSkgKG9kZCAoY2RyIGFycmF5KSkpKQogICAgICAgICh0IChvZGQgKGNkciBhcnJheSkpKQogICAgKQopCgooZGVmdW4gZXZlbl9vZGQgKGFycmF5KSAobGlzdCAob2RkIGFycmF5KSAoZXZlbiBhcnJheSkpKSA7INGA0LDQt9C00LXQu9GP0LXRgiDRgdC/0LjRgdC+0Log0LjQtyDRhtC40YTRgCBhcnJheSDQvdCwINC90LXRh9C10YLQvdGL0Lkg0Lgg0YfQtdGC0L3Ri9C5INGB0L/QuNGB0LrQuAoKKHByaW50IChldmVuX29kZCAnKDEgMiAzIDQgNSA2IDcgOCA5IDEwKSkpCgo7LS0tLS0tCgo7LS0tLS0tIDEwINC30LDQtNCw0L3QuNC1CihkZWZ1biBwb3AgKGFycmF5KSA7INGD0LTQsNC70Y/QtdGCINC/0L7RgdC70LXQtNC90LjQuSDRjdC70LXQvNC10L3RgiDQuNC3INGB0L/QuNGB0LrQsCBhcnJheQoJKGNvbmQKCQkoKG51bGwgKGNkciBhcnJheSkpIG5pbCkKCQkodCAoY29ucyAoY2FyIGFycmF5KSAocG9wIChjZHIgYXJyYXkpKSkpCgkpCikKCihkZWZ1biBkZWwgKGFycmF5IGNvdW50KSA7INGD0LTQsNC70Y/QtdGCIGNvdW50INC/0L7RgdC70LXQtNC90LjRhSDRjdC70LXQvNC10L3RgtC+0LIg0LjQtyDRgdC/0LjRgdC60LAgYXJyYXkKCShjb25kCgkJKChlcWwgY291bnQgMSkgKHBvcCBhcnJheSkpCgkJKHQgKGRlbCAocG9wIGFycmF5KSAoLSBjb3VudCAxKSkpCgkpCikKCihwcmludCAoZGVsICcoMSAyIDMgNCA1IDYgNyA4IDkgMTApIDMpKQoKOy0tLS0tCgooZGVmdW4gaW4gKGVsZW0gYXJyYXkpIDsg0L/RgNC+0LLQtdGA0Y/QtdGCINC90LDRhdC+0LTQuNGC0YHRjyDQu9C4IGVsZW0g0LIg0YHQv9C40YHQutC1IGFycmF5CgkoY29uZAoJCSgobnVsbCBhcnJheSkgbmlsKQoJCSgoZXFsIGVsZW0gKGNhciBhcnJheSkpIHQpCgkJKHQgKGluIGVsZW0gKGNkciBhcnJheSkpKQoJKQopCgooZGVmdW4gc2V0IChhcnJheSkgOyDQstC+0LfQstGA0LDRidCw0LXRgiDQvNC90L7QttC10YHRgtCy0L4gKNGC0L7Qu9GM0LrQviDRg9C90LjQutCw0LvRjNC90YvQtSDRjdC70LXQvNC10L3RgtGLKSDQuNC3INGB0L/QuNGB0LrQsCBhcnJheQoJKGNvbmQKCQkoKG51bGwgYXJyYXkpIG5pbCkKCQkoKGluIChjYXIgYXJyYXkpIChjZHIgYXJyYXkpKSAoc2V0IChjZHIgYXJyYXkpKSkKCQkodCAoY29ucyAoY2FyIGFycmF5KSAoc2V0IChjZHIgYXJyYXkpKSkpCgkpCikKCjstLS0tLSAxNyDQt9Cw0LTQsNC90LjQtQooZGVmdW4gcmVtb3ZlIChlbGVtIGFycmF5KSA7INGD0LTQsNC70Y/QtdGCINC/0LXRgNCy0L7QtSDQstGF0L7QttC00LXQvdC40LUgZWxlbSDQuNC3INGB0L/QuNGB0LrQsCBhcnJheQoJKGNvbmQKCQkoKG51bGwgYXJyYXkpIG5pbCkKCQkoKGVxbCBlbGVtIChjYXIgYXJyYXkpKSAoY2RyIGFycmF5KSkKCQkodCAoY29ucyAoY2FyIGFycmF5KSAocmVtb3ZlIGVsZW0gKGNkciBhcnJheSkpKSkKCSkKKQoKKGRlZnVuIGFkZHMgKGVsZW0gc2V0cykgOyDQtNC+0LHQsNCy0LvRj9C10YIg0LIg0LrQsNC20LTRi9C5INGB0L/QuNGB0L7QuiDQuNC3IHNldHMg0LIg0L3QsNGH0LDQu9C+IGVsZW0KCShjb25kCgkJKChudWxsIHNldHMpIG5pbCkKCQkodCAoY29ucyAoY29ucyBlbGVtIChjYXIgc2V0cykpIChhZGRzIGVsZW0gKGNkciBzZXRzKSkpKQoJKQopCgooZGVmdW4gcGFpciAoZWxlbSBhcnJheSkgOyDRhNC+0YDQvNC40YDRg9C10YIg0L/QsNGA0YMg0LfQvdCw0YfQtdC90LjQuSAo0LfQvdCw0YfQtdC90LjQtSBlbGVtINC40Lcg0YHQv9C40YHQutCwIGFycmF5OyDRgdC/0LjRgdC+0LogYXJyYXkg0LHQtdC3INGN0YLQvtCz0L4g0LfQvdCw0YfQtdC90LjRjykKICAobGlzdCBlbGVtIChyZW1vdmUgZWxlbSBhcnJheSkpCikKCihkZWZ1biBwYWlycyAoYXJyYXkgZWxlbXMpIDsg0YTQvtGA0LzQuNGA0YPQtdGCINGB0L/QuNGB0L7QuiDQv9Cw0YAg0LfQvdCw0YfQtdC90LjQuSAo0LfQvdCw0YfQtdC90LjQtSDQuNC3INGB0L/QuNGB0LrQsCBlbGVtczsg0YHQv9C40YHQvtC6IGFycmF5INCx0LXQtyDRjdGC0L7Qs9C+INC30L3QsNGH0LXQvdC40Y8pCgogIChjb25kCiAgICAoKG51bGwgZWxlbXMpIG5pbCkKICAgICh0IChjb25zIChwYWlyIChjYXIgZWxlbXMpIGFycmF5KSAocGFpcnMgYXJyYXkgKGNkciBlbGVtcykpKSkKICApCikKCihkZWZ1biBpbmZvLXBhaXIgKHBhaXIxKSA7INGB0L7Qt9C00LDQtdGCINC60L7QvNCx0LjQvdCw0YbQuNGOINC40LvQuCDQutC+0LzQsdC40L3QsNGG0LjQuCDQt9C90LDRh9C10L3QuNC5INC/0LDRgNGLCiAgKGNvbmQKICAgICgobnVsbCAoY2RhZHIgcGFpcjEpKSAobGlzdCAobGlzdCAoY2FyIHBhaXIxKSAoY2FhZHIgcGFpcjEpKSkpCiAgICAodCAoYWRkcyAoY2FyIHBhaXIxKSAoYWxsLXN3YXAgKGNhZHIgcGFpcjEpKSkpCiAgKQopCgooZGVmdW4gaW5mby1wYWlycyAoc2V0X3BhaXJzKSA7INGB0L7Qt9C00LDQtdGCINC60L7QvNCx0LjQvdCw0YbQuNC4INC30L3QsNGH0LXQvdC40Lkg0L/QsNGACiAgKGNvbmQKICAgICgobnVsbCBzZXRfcGFpcnMpIG5pbCkKICAgICh0IAogICAgCShhcHBlbmQgCiAgICAJCShpbmZvLXBhaXIgKGNhciBzZXRfcGFpcnMpKQogICAgICAgICAgICAoaW5mby1wYWlycyAoY2RyIHNldF9wYWlycykpCiAgICAgICAgKQogICAgKQogICkKKQoKKGRlZnVuIGFsbC1zd2FwIChzZXQpIDsg0YHQvtC30LTQsNC10YIg0LLRgdC1INC/0LXRgNC10YHRgtCw0L3QvtCy0LrQuCDRgdC/0LjRgdC60LAgc2V0CiAgKGxldCAoKGFsbF9wYWlyIChwYWlycyBzZXQgc2V0KSkpCiAgICAoaW5mby1wYWlycyBhbGxfcGFpcikKICApCikKCihwcmludCAoYWxsLXN3YXAgKHNldCAnKDEgMiAzIDMgMSkpKSkKCjstLS0tLQoKOy0tLS0tLS0gMTgKKGRlZnVuIGlzLWF0b21zIChhcnJheSkgOyDQv9GA0L7QstC10YDRj9C10YIg0YHQvtGB0YLQvtC40YIg0LvQuCDRgdC/0LjRgdC+0LogYXJyYXkg0YLQvtC70YzQutC+INC40Lcg0LDRgtC+0LzQvtCyCgkoY29uZAoJCSgobnVsbCBhcnJheSkgdCkKCQkoKGF0b20gKGNhciBhcnJheSkpIChpcy1hdG9tcyAoY2RyIGFycmF5KSkpCgkJKHQgbmlsKQoJKQopCgoocHJpbnQgKGlzLWF0b21zICcoNyA2IDMgMCAzKSkpCihwcmludCAoaXMtYXRvbXMgJyg3IDYgMyAoMCAzKSkpKQoKOy0tLS0tLS0tCgo7LS0tLS0tLTIzCihkZWZ1biBpbi1saXN0IChhcnJheSkgOyDRhNC+0YDQvNC40YDRg9C10YIg0LLQu9C+0LbQtdC90L3Ri9C5INGB0L/QuNGB0L7QugoJKGNvbmQKCQkoKG51bGwgKGNkciBhcnJheSkpIGFycmF5KQoJCSh0IChsaXN0IChjYXIgYXJyYXkpIChpbi1saXN0IChjZHIgYXJyYXkpKSkpCgkpCikKCihkZWZ1biBvdXQtbGlzdCAoYXJyYXkpIDsg0YDQsNGB0LrRgNGL0LLQsNC10YIg0LLQu9C+0LbQtdC90L3Ri9C5INGB0L/QuNGB0L7QuiAKCShjb25kCgkJKChudWxsIChjZHIgYXJyYXkpKSBhcnJheSkKCQkodCAoY29ucyAoY2FyIGFycmF5KSAob3V0LWxpc3QgKGNhZHIgYXJyYXkpKSkpCgkpCikKCihzZXRmIGEgKGluLWxpc3QgJyhhIGIgYyBkKSkpCihwcmludCBhKQoocHJpbnQgKG91dC1saXN0IGEpKQoKOy0tLS0tLS0KCjstLS0tLS0gMzQKKGRlZnVuINCg0JDQktCV0J3QodCi0JLQni3QnNCd0J7QltCV0KHQotCSIChzZXQxIHNldDIpCgkoY29uZAoJCSgoYW5kIChudWxsIHNldDEpIChudWxsIHNldDIpKSB0KQoJCSgobnVsbCBzZXQxKSBuaWwpCgkJKChudWxsIHNldDIpIG5pbCkKCQkoKGluIChjYXIgc2V0MSkgc2V0MikgKNCg0JDQktCV0J3QodCi0JLQni3QnNCd0J7QltCV0KHQotCSIChjZHIgc2V0MSkgKHJlbW92ZSAoY2FyIHNldDEpIHNldDIpKSkKCQkodCBuaWwpCgkpCikKCihwcmludCAo0KDQkNCS0JXQndCh0KLQktCeLdCc0J3QntCW0JXQodCi0JIgJygxIDIgMyA0KSAnKDQgMSAzIDIpKSkKKHByaW50ICjQoNCQ0JLQldCd0KHQotCS0J4t0JzQndCe0JbQldCh0KLQkiAnKDEgMiAzIDQpICcoNCAxIDMpKSkKCjstLS0tLS0KCjstLS0tLS0gMzgKKGRlZnVuIHVuaW9uIChzZXQxIHNldDIpCgkoY29uZAoJCSgobnVsbCBzZXQxKSBzZXQyKQoJCSgobnVsbCBzZXQyKSBzZXQxKQoJCSgoaW4gKGNhciBzZXQyKSBzZXQxKSAodW5pb24gc2V0MSAoY2RyIHNldDIpKSkKCQkodCAodW5pb24gKGNvbnMgKGNhciBzZXQyKSBzZXQxKSAoY2RyIHNldDIpKSkKCSkKKQoKKHByaW50ICh1bmlvbiAoc2V0ICcoMSAyIDMgNCAxIDIpKSAoc2V0ICcoMyA0IDMgNSAxMCkpKSkKCjstLS0tLQoKOy0tLS0tIDQyCihkZWZ1biBtYXgyIChhIGIpIDsg0LzQsNC60YHQuNC80YPQvCDQtNCy0YPRhSDRh9C40YHQtdC7CiAgKGNvbmQgCiAgICAoKD4gYSBiKSBhKQogICAgKHQgYikKICApCikKCihkZWZ1biBtYXgtb2Ytc3VidHJlZXMgKHN1YnRyZWVzIGN1cnItbWF4KSA7INC+0LHRhdC+0LQg0YHQv9C40YHQutCwINC/0L7QtNC00LXRgNC10LLRjNC10LIsINC/0L7QtNC00LXRgNC20LjQstCw0Y8g0YLQtdC60YPRidC40Lkg0LzQsNC60YHQuNC80YPQvAogIChjb25kIAogICAgKChudWxsIHN1YnRyZWVzKSBjdXJyLW1heCkKICAgICh0IChtYXgtb2Ytc3VidHJlZXMgKGNkciBzdWJ0cmVlcykKICAgICAgICAgICAgICAgICAgICAgICAgICAgIChtYXgyIGN1cnItbWF4IChtYXgtdHJlZSAoY2FyIHN1YnRyZWVzKSkpKSkKICApCikKCihkZWZ1biBtYXgtdHJlZSAodHJlZSkgOyDQvNCw0LrRgdC40LzQsNC70YzQvdC+0LUg0LfQvdCw0YfQtdC90LjQtSDQsiDQtNC10YDQtdCy0LUKICAoY29uZCAKICAgICgoYXRvbSB0cmVlKSB0cmVlKSAgICAgICAgICAgICAgICAgICAgCiAgICAodCAobWF4LW9mLXN1YnRyZWVzIChjZHIgdHJlZSkgKGNhciB0cmVlKSkpCiAgKQopCgoobWF4LXRyZWUgJyg1ICgzIDggMikgKDcgKDIgNCAwKSA5KSkpIAoobWF4LXRyZWUgJyg0MikpICAgICAgICAgICAgICAgICAgICAKKG1heC10cmVlICcoNiAoMTAgMzQgMjApICg0MCAxOCA1KSkpIAoKOy0tLS0tCgo7LS0tLS0tIDQ1CihkZWZ1biDQoNCQ0KHQodCi0J7Qr9Cd0JjQlSAoYSBiKQogIChsZXQgKChkeCAoLSAoZ2V0IGEgJ3gpIChnZXQgYiAneCkpKQogICAgICAgIChkeSAoLSAoZ2V0IGEgJ3kpIChnZXQgYiAneSkpKSkKICAgIChzcXJ0ICgrICgqIGR4IGR4KSAoKiBkeSBkeSkpKSkKKQoKKHNldGYgKGdldCAn0LzQvtGB0LrQstCwICd4KSAwKQooc2V0ZiAoZ2V0ICfQvNC+0YHQutCy0LAgJ3kpIDApCihzZXRmIChnZXQgJ9C/0LjRgtC10YAgJ3gpIDMpCihzZXRmIChnZXQgJ9C/0LjRgtC10YAgJ3kpIDQpCgoocHJpbnQgKNCg0JDQodCh0KLQntCv0J3QmNCVICfQvNC+0YHQutCy0LAgJ9C/0LjRgtC10YApKQoKOy0tLS0tLS0K